Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

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

Hi,
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


Comment on Re: YA fork() question: catching runaway and erroneous processes
Select or Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (4)
As of 2014-09-21 22:01 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (176 votes), past polls