Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister

Re: Fork() Function

by McA (Priest)
on May 13, 2014 at 13:51 UTC ( #1085903=note: print w/ replies, xml ) Need Help??

in reply to Fork() Function


the following code is directly taken from the perldoc perlipc which should give an idea about the bookkeeping:

use POSIX ":sys_wait_h"; # for nonblocking read my %children; $SIG{CHLD} = sub { # don't change $! and $? outside handler local ($!, $?); my $pid = waitpid(-1, WNOHANG); return if $pid == -1; return unless defined $children{$pid}; delete $children{$pid}; cleanup_child($pid, $?); }; while (1) { my $pid = fork(); die "cannot fork" unless defined $pid; if ($pid == 0) { # ... exit 0; } else { $children{$pid}=1; # ... system($command); # ... } }

UPDATE: In my opinion it's essential to understand that fork does a 1-to-1-process copy. After that fork you have two processes with the same "Perl source code", just continuing to run at different positions in the code. (The if ($pid == 0) {).

That does also mean that there is a %children hash in the child process even when only meaningfully used by the parent for child bookkeeping. But, e.g. in the currently spawned child you could ask the child's copy of %children which other child processes were spawned and not reaped just until its own birth. A kind of "I do have the following older siblings".


Comment on Re: Fork() Function
Select or Download Code

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1085903]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (5)
As of 2015-11-27 17:41 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (731 votes), past polls