Opened by esskar at 2005-04-05 03:31
User since
2003-08-15
2653 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-15
2653 Artikel
BenutzerIn
was ist gemeint mit $select->add(*FROM_SERVER) und $select->add($to_client) ?? was kommt da rein?
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
my $select = IO::Select->new();
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()) {
foreach my $socket ($select->can_read(5)) {
print "$socket\n";
}
}
close($server);