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

发布时间：2020-12-15 21:54:13 所属栏目：大数据来源：网络整理

导读：我正在编写一个Perl脚本,它将写入一些输入并将这些输入发送到外部程序.这个程序有一个小但非零的机会,我想把它计时： my $pid = fork;if ($pid 0){ eval{ local $SIG{ALRM} = sub { die "TIMEOUT!"}; alarm $num_secs_to_timeout; waitpid($pid,0); alarm 0;

我正在编写一个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被成功杀死.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!