perl – 如何超时可能挂起的分叉进程？

我正在编写一个Perl脚本,它将写入一些输入并将这些输入发送到外部程序.这个程序有一个小但非零的机会,我想把它计时：

my $pid = fork;
if ($pid > 0){
    eval{
        local $SIG{ALRM} = sub { die "TIMEOUT!"};
        alarm $num_secs_to_timeout;
        waitpid($pid,0);
        alarm 0;
    };
}
elsif ($pid == 0){
    exec('echo blahblah | program_of_interest');
    exit(0);
}

现在,在$num_secs_to_timeout之后,program_of_interest仍然存在.我试图在$SIG {ALRM}的匿名子程序中杀死它,如下所示：

local $SIG{ALRM} = sub{kill 9,$pid; die "TIMEOUT!"}

但这没有做任何事情. program_of_interest仍然存在.我如何杀死这个过程？

解决方法

通过终止进程组,我能够成功杀死我的exec()ed进程,如问题 In perl,killing child and its children when child was created using open的答案所示.我修改了我的代码如下：

my $pid = fork;
if ($pid > 0){
    eval{
        local $SIG{ALRM} = sub {kill 9,-$PID; die "TIMEOUT!"};
        alarm $num_secs_to_timeout;
        waitpid($pid,0);
        alarm 0;
    };
}
elsif ($pid == 0){
    setpgrp(0,0);
    exec('echo blahblah | program_of_interest');
    exit(0);
}

超时后,program_of_interest被成功杀死.