renee+2007-11-26 15:40:28--

Code (perl): (dl )

1
2
3
4
5
6
7
8
9
10
11
12

my $anzahl = 3;
getlinefromsocket( $socket, $anzahl);

sub getlinefromsocket{
   my ($socket,$anz) = @_;
   my $buffer;
   my $char;
   while ($socket->recv($char,1)) {
      $buffer.=$char;
      last if length $buffer == $anz;
   }
}

aber so definier ich doch wieder, dass es immer drei zeichen sind,
wie mach ich das denn, dass der abbrechen soll, wenn nichts mehr kommt?