perl - Perl 的 `system` 不等待完成如何进行。

Question

在 Perl 中，命令 将等待“命令”完成。有没有办法让 command 只等待 20 秒？一种情况如下:

命令 是一个无限循环，不会结束。 命令 将卡住，程序无法继续。我想让程序不被 command 阻塞。

我知道 Ruby 有办法做到这一点。 Perl 有解决方案吗？

谢谢，

=是

Answer 1

使用alarm :

eval {
    local $SIG{ALRM} = sub { die "alarm\n" }; # NB: \n required
    alarm 20;
    system("<Your command>")
    alarm 0;
};
if ($@) {
    die unless $@ eq "alarm\n";   # propagate unexpected errors
    # timed out
}
else {
    # didn't
}