TCP Client - Socket lesen und schliessen - #37529 (Netzwerkprogrammierung und Netzwerke mit Perl)

steffenw

2004-08-20 23:13

User since
2003-08-15
692 Artikel
BenutzerIn

Wenn Du Bytes sendest, bringt Dir send immer zurück, wie viele Bytes gesendet werden konnten. Im nonblocking-Modus können es auch 0 sein, sonst mindestens eins.

Du mußt Dir einen Ausgangspuffer aufbauen, in den Du die Bytes einträgst, die vom File kommen und dann die gesendeten Bytes vorn von diesem Puffer wieder abziehen.

Code: (dl )

my $outbuf = '';
while (read FileHandle, $buf, 28)
{ $outbuf .= $buf;   # zum Senden anhängen
  my $len = $socket->send($outbuf);   # Sendeversuch - heißt, es muß nicht klappen
  $len and substr $outbuf, 0, $len, ''; # vorn wieder abschneiden
}

Jetzt könnten noch Bytes in $outbuf sein, wenn diese nicht gesendet werden konnten. Entweder Du blockierst spätestens hier oder betrachtest das als Fehler.

$SIG{USER} = sub {love 'Perl' or die};