socket: Übergabe von Daten - #37823 (Netzwerkprogrammierung und Netzwerke mit Perl)

Froschpopo

2005-04-05 00:32

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

hiho,

ich experimentiere grad so ein bissl mit sockets rum.
Ich hab nen client gebaut der nen socket zu dem server hier aufbaut:

server.pl:

Code: (dl )

use IO::Socket;

my $server = IO::Socket::INET->new(
    LocalPort => 2005,
    type => SOCK_STREAM,
    Reuse => 1,
    Listen => 10
)
    or die "Server läuft nicht: $@\n";

while (my $client = $server->accept()) {
    print "Anfrage\n";
}
close($server);

wie kann ich jetzt nen string vom client empfangen bzw printen?
Ansonsten funzt der server soweit, wenn ich mit dem client etwas losschicke gibt er mir immer wie erwartet "anfrage" aus.\n\n