Re: sending signal to forked process

in reply to sending signal to forked process

Is this you are expecting,

my $pid;
sub handler
{
    if($pid==0)
    {
        print "sig",shift,"received\n";
    }
    else
    {
      $SIG{'INT'}='DEFAULT';
    }
}
$SIG{'INT'}=\&handler;
$pid=fork();

if($pid==0)
{
    print "child\n";
    sleep(10);
}
else
{
    wait();
    print "parent\n";
    sleep(30);
}
[download]

Comment on Re: sending signal to forked process Download Code

Replies are listed 'Best First'.
Re^2: sending signal to forked process by ajeet@perl (Acolyte) on Apr 07, 2010 at 14:17 UTC
Thanks...i got it solved :)	[reply]

In Section Seekers of Perl Wisdom