Re: sending signal to forked process


Perl-Sensitive Sunglasses
	PerlMonks

Re: sending signal to forked process

by kiruthika.bkite (Scribe)

on Apr 07, 2010 at 13:18 UTC ( [id://833292]=note: print w/replies, xml )

Need Help??

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]