Re: perl fork exec

On 5/14/07, Scott Walde <scott@waldetech.ca> wrote:
> How do I reap my dead children when using fork/exec in perl? I have it
> working except for the defunct children.
>
> ttyl
> srw

The few times I've had to do it, I've always used the following, from
the perl manual

    sub REAPER {
        $waitedpid = wait;
        $SIG{CHLD} = \&REAPER; # loathe sysV
        logmsg "reaped $waitedpid" . ($? ? " with exit $?" : '');
    }

    $SIG{CHLD} = \&REAPER;

However the perl cookbook has a more robust method

http://72.14.253.104/search?q=cache:MvvoYgfZDNMJ:www.unix.org.ua/orelly/perl/cookbook/ch16_20.ht
Received on Mon May 14 16:18:51 2007