# parent domain
...
my $server_socket = IO::Socket::INET->new(
Listen => 5,
ReuseAddr => 1,
LocalAddr => 'a.b.c.d',
LocalPort => nnnn,
Blocking => 0
)
# fork n children ...
# child domain:
fh_nonblocking $server_socket, 1;
my $w = AE::io $server_socket, 0, sub {
while(accept my $client_socket, $server_socket) {
# setup handlers for this new client:
$handles->{$client_id} = new AnyEvent::Handle(
fh => $client_socket,
on_read => sub { ... },
on_error => sub { ... },
);
$handles->{$client_id}->push_write ("Child $child_no welcome client
+ $client_id \015\012");
...
|