Opened by qqonline at 2008-06-30 02:10
Hallo,
Habe folgenden Code nun am Anfang, da ( wie oben beschrieben ) er nur eine Nachricht entgegen nahm :)
Er soll eine Nachricht, die er empfängt an alle verbundenen Clienten senden :)
Habe folgenden Code nun am Anfang, da ( wie oben beschrieben ) er nur eine Nachricht entgegen nahm :)
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
...
use constant MYPORT => 9810;
$sock = new IO::Socket::INET(LocalPort => MYPORT,
Reuse => 1,
Listen => 5)
or die "can't create local socket: $@\n";
print "Server lauft, zum Beenden Strg+c eingeben oder Prozess killen\n";
while ($client = $sock->accept()) {
print "Accepting connections on Port ", MYPORT, "...\n";
print "Accepted connection from ",
$client->peerhost(), ":", $client->peerport(), "\n";
if (fork() == 0) {
while (<$client>) {
... meine abfragen für bestimmte befehle (server antwortet z.B. mit uptime etc.)
Er soll eine Nachricht, die er empfängt an alle verbundenen Clienten senden :)