Opened by Gast at 2008-08-08 15:35
Habe folgenden Code für einen TCP Chatserver 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? :(
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? :(
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
#!/usr/bin/perl -w
use IO::Socket;
use Net::hostent;
$PORT = 1234;
$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/;
# ABFRAGEN HIER REIN (LOGIN etc.)
}
}
close $client;