socket and fork

[Larry]

Hello everybody,

I don't know if this has been covered before, I'd love to code a
tiny server that can hanlde several requests at the same...the following
chuck of code can only handle one connection at a time:

use Socket qwDEFAULT :crlf);

$socket = IO::Socket::INET->new() || die "unableto listen";
$socket->listen();

$| = 1;

while (1)
{
$client = $socket->accept;

if ($client)
{
...get data...send response...
close $client;
}

}

How can I go about using fork() ? it's just a tiny server so a couple of
connections at the same time would be good...

thanks

 

[Martijn Lievaart]

Hello everybody,

I don't know if this has been covered before, I'd love to code a
tiny server that can hanlde several requests at the same...the following
chuck of code can only handle one connection at a time: (snip)
How can I go about using fork() ? it's just a tiny server so a couple of
connections at the same time would be good...

Did you look at perldoc perlipc? It's right in there.

HTH,
M4

 

[Larry]

Did you look at perldoc perlipc? It's right in there.

well, that's what I was looking for, still I have some difficulties
figuring out how fork() works. this is what I've got:

use POSIX ":sys_wait_h";

sub REAP {

1 until (-1 == waitpid(-1, WNOHANG));
$SIG{CHLD} = \&REAP;

}

$SIG{CHLD} = \&REAP;

die "can't fork: $!" unless defined( $pid = fork() );

if ($pid) {

# the if{} block runs only in the parent process

waitpid( $pid,0 );

} else {

# the else{} block runs only in the child process
exit(0)

}

how can I merge it with the following?

use Socket qwDEFAULT :crlf);

$socket = IO::Socket::INET->new() || die "unableto listen";
$socket->listen();

$| = 1;

while (1)
{
$client = $socket->accept;

if ($client)
{
...get data...send response...
close $client;
}

}


thanks

 

[Martijn Lievaart]

well, that's what I was looking for, still I have some difficulties
figuring out how fork() works. this is what I've got:

Read the part that starts with "And here’s a multithreaded version".
It's exactly what you want.

M4