我需要在正在阻止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 "ok\n"; 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
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。