Einlesen aus (my $buffer = <$client>) klappt nicht - #115026 (Allgemeines zu Perl)

Hagen

2008-09-30 16:07

User since
2007-09-06
233 Artikel
BenutzerIn
[default_avatar]

Hallo,

ich 'probiere' mich gerade an einem kleinen Perl-Server einfach um das mal auzuprobieren. Allerdings komme ich an einer Stelle nicht weiter und ich verstehe nicht warum bzw. was da genau abläuft:

Code (perl): (dl )

        my $socket = new IO::Socket::INET (
                LocalPort => $listen_port,
                Listen => 999,
                ReuseAddr => 1,
                Proto => "tcp",
                )
                || die "can't create local socket: $@\n";
        

        while(my $client = $socket->accept()) {
                        while(my $buffer = <$client>) { ...

Hier bleiben ich immer hänge, d.h. ich springe aus der Schleife nicht mehr heraus.
Folgendes habe ich auch ausprobiert (vor die Schleife gesetzt), habe aber dann keine Ausgabe erhalten:

Code (perl): (dl )

foreach my $item (<$client>) { print $item; }

Ich springe einfach nicht über diese Zeile hinweg, als ob noch auf etwas gewartet wird.

Hat vielleicht einer einen Tipp für mich?

Gruß
Hagen