Community  »  Perl: Allgemeines Forum

Chat server

Seitenanfang

Es geht um Chatserver... Habe folgenden Code gefunden: Nur wie bekomm ich hin, dass mehrere sich Verbinden können? Wenn ich mich jetzt verbinde, kommt die nachricht erst wenn client 1 die verbindung schließt :( Und desweiteren wie kann ich eine Nachricht an alle clienten weitergeben? :( #!/usr/bin/perl -w use IO::Socket;use Net::hostent;$PORT = 9810;$server = IO::Socket::INET->new( Proto => 'tcp',LocalPort => $PORT,Listen => SOMAXCONN,Reuse => 1);die "can't setup server" unless $server;while ($client = $server->accept()) { $client->autoflush(1); print $client "Welcome to Server!\n\n"; $hostinfo = gethostbyaddr($client->peeraddr); while ( <$client>) { next unless /\S/; # CODE }}close $client; Datum: 06.08.2008-19:18