Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight

Re: YA fork() question: catching runaway and erroneous processes

by stefan k (Curate)
on Jul 28, 2004 at 09:18 UTC ( #377973=note: print w/replies, xml ) Need Help??

in reply to YA fork() question: catching runaway and erroneous processes

I could help myself. At least this works with my testing programms.
  1. I need to wait for the $pid instead of -1
  2. I can check $? for the exit status
  3. I need to check the result of waitpid for >0 instead of == -1
So now the relevant code section reades likes this:
if ($pid == 0) { # child print " child: exec\n"; exec("$prg arguments"); exit; } else { # parent print " parent: wait\n"; my $time = time(); my $kill_flag = 1; while (time() - $time < $timeout) { sleep 1; my $kid = waitpid($pid,WNOHANG); my $exit_value = $? >> 8; if ($kid > 0) { $kill_flag = 0; $return_code = !$exit_value; last; } } if($kill_flag) { kill(9, $pid); $return_code = 0; } } return $return_code;
Thanks for reading anyway :-)

Regards... Stefan
you begin bashing the string with a +42 regexp of confusion

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (4)
As of 2022-05-29 00:10 GMT
Find Nodes?
    Voting Booth?
    Do you prefer to work remotely?

    Results (101 votes). Check out past polls.