grey1987+2007-11-26 15:33:57--

oder kann mir villeicht einer zeile für zeile erklären was das hier überhaupt macht:

Code (perl): (dl )

1
2
3
4
5
6
7

sub getlinefromsocket ($socket) {
  my $buffer;
  my $char;
  while ($socket->recv($char,1)) {
    $buffer.=$char;
  }
}

danke schon mal

1. Zeile muss sub getlinefromsocket{ heißen (wurde Dir aber schonmal gesagt).

Wenn Du $socket übergibst, solltest Du das auch verwenden...

1. Zeile: sagt, dass jetzt ne Subroutine kommt, mit dem Namen "getlinefromsocket"
2. Zeile: definiere $buffer
3. Zeile: definiere $char
4. Zeile: solange 1 Zeichen vom Socket gelesen wird
5. Zeile: hänge das Zeichen an $buffer dran

Du sagst nicht, dass die Schleife abbrechen soll!