linux – Perl：在信号处理程序中关闭子进程管道挂起？

发布时间：2020-12-14 02:22:39 所属栏目：Linux 来源：网络整理

导读：我需要在正在阻止io的脚本上超时. 令人惊讶的是,如果有一个打开管道到子进程,它会退出挂起： #!/usr/bin/perl (-f "foo") || die "file foo doesn't exist";open(IN,"tail -f foo |");$SIG{ALRM} = sub{ print "trying to exit...n"; exit 0; # Hangs with

我需要在正在阻止io的脚本上超时.
令人惊讶的是,如果有一个打开管道到子进程,它会退出挂起：

#!/usr/bin/perl                                                                                             
(-f "foo") || die "file foo doesn't exist";
open(IN,"tail -f foo |");

$SIG{ALRM} = sub
{
    print "trying to exit...n";
    exit 0;     # Hangs with above open() call
};
alarm 1;

while (1)
{   
    sleep 5;   # Do stuff ...
}

没有打开调用它可行,不幸的是删除它不是一个选项,在这种情况下脚本需要它.

看起来像是试图关闭文件句柄,这就是悬挂：

$SIG{ALRM} = sub
{
    print "trying to close...n";
    close(IN);            # Hangs ...
    print "okn";
    exit 0;
};

我想从信号处理程序中收获孩子并不太高兴…

有没有人知道这方面的好方法？

解决方法

信号处理程序是一个红色的鲱鱼,close将阻止,无论如何：

open my $foo,"tail -f foo |" or die "Can't open process: $!";

close $foo;     # <--- will block

解决此问题的一种方法是通过open捕获子进程ID,然后通过kill捕获该子进程：

my $subprocess = open my $foo,"tail -f foo |" or die "Can't open process: $!";

say "subprocess=$subprocess";

kill 'KILL',$subprocess;

close $foo;     # <--- happy now

（编辑：李大同）

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