Opened by Gast at 2007-04-27 18:07
Hi,
ich habe ein Problem mit dem Socket Buffering in PERL.
Ich connecte zu einem daemon und gebe diesem Befehle. Die Befehle geben eine oder mehrere Zeilen zurück (Strings). Nun möchte ich diese ganzen Zeilen in einem String zusammenfassen. Ist das möglich? Wenn ja wie? read() bietet mir die Möglichkeit die Antworten einzulesen. Aber setzt vorraus das ich die LÄNGE kenne...
Weiterhin muss ich wissen, ob es eine Möglichkeit gibt den Buffer (mit den Serverantworten) zu flushen.
bisher gebe ich die Zeilen mit getline() aus. Was aber nicht gewünscht ist, da ich auch mal nur die letzte Zeile im Buffer ausgeben will.
Ich hoffe ihr könnt mir weiterhelfen.
Gruß marv
ich habe ein Problem mit dem Socket Buffering in PERL.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
my $socket = IO::Socket::INET->new(PeerAddr => "127.0.0.1",
PeerPort => 41447,
Proto => "tcp",
Type => SOCK_STREAM,
Timeout => 300)
or die "$!\n";
print $socket "command1\n";
print $socket "command2\n";
print $socket "command3\n";
Ich connecte zu einem daemon und gebe diesem Befehle. Die Befehle geben eine oder mehrere Zeilen zurück (Strings). Nun möchte ich diese ganzen Zeilen in einem String zusammenfassen. Ist das möglich? Wenn ja wie? read() bietet mir die Möglichkeit die Antworten einzulesen. Aber setzt vorraus das ich die LÄNGE kenne...
Weiterhin muss ich wissen, ob es eine Möglichkeit gibt den Buffer (mit den Serverantworten) zu flushen.
bisher gebe ich die Zeilen mit getline() aus. Was aber nicht gewünscht ist, da ich auch mal nur die letzte Zeile im Buffer ausgeben will.
Ich hoffe ihr könnt mir weiterhelfen.
Gruß marv