|
|
|
| Keep It Simple, Stupid | |
| PerlMonks |
pc88mxer's scratchpadby pc88mxer (Vicar) |
| on Jan 14, 2008 at 06:59 UTC ( #662266=scratchpad: print w/replies, xml ) | Need Help?? |
# for chris68805 $index=0; while ($index<2) { my $testpath="echo I am instance $index; sleep 10; echo Exiting $index"; $id=fork(); if ($id == 0) { exec($testpath) or die "unable to exec $testpath: $!\n"; } $index++; } print "Waiting for children\n"; while (wait > -1) {}; print "All children terminated\n"; |
|