Re: sending signal to forked process

[kiruthika.bkite]

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);
}

[ajeet@perl]

Thanks...i got it solved :)