# once again, adapted from perlipc use vars qw( %status ); # our, if you prefer sub REAPER { $waitedpid = wait; # now status is in $? $status{ $waitedpid } = $? >> 8; # loathe sysV: it makes us not only reinstate # the handler, but place it after the wait $SIG{CHLD} = \&REAPER; } $SIG{CHLD} = \&REAPER; while ( my ($k,$v) = each %status ) { print "pid $k\tstatus $v\n" }
In reply to Re: Re: (sacked) Re: SIGCHLD and return codes
by sacked
in thread SIGCHLD and return codes
by shrubbery
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |