perlquestion
spaz
Fellow Monks,<br>
In one of my scripts I start up several child processes as follows<code>foreach $item ( @array ) {
if( $pid = fork ) {
print "Forking off to $pid\n";
} elsif( defined $pid ) {
&proprietary_function( $item );
print "Done with function\n";
exit;
} else {
die "Can't fork: $!";
}
}
</code>
My question is this:<br>
If I were to build up a list of PID's, how could I [wait] for them all to exit, and if they don't exit after a certain amount of time, kill them?<br>
I've looked at [perlipc] and [wait] but I'm getting kind of confused about reaping and when to handle it.<br>
Could I use something like<code>sub REAPER {
my $waitedpid = wait;
$SIG{CHLD} = \&REAPER;
}
</code>
And then change<code> if( $pid = fork ) {
print "Forking off to $pid\n";
</code>
To <code> if( $pid = fork ) {
$SIG{CHLD} = \&REAPER;
print "Forking off to $pid\n";
</code>
?
<br><br>-- Dave