如何指定 Perl 系统调用的超时限制？

Question

有时我的系统调用会进入永无止境的状态。为了避免我希望能够在指定的时间后中断通话。

有没有办法指定 system 的超时限制？

system("command", "arg1", "arg2", "arg3");

我希望从 Perl 代码中实现超时以实现可移植性，而不是使用 ulimit 等某些操作系统特定的函数。

Answer 1

请参阅 alarm 函数。 pod 中的示例：

eval {
    local $SIG{ALRM} = sub { die "alarm\n" }; # NB: \n required
    alarm $timeout;
    $nread = sysread SOCKET, $buffer, $size;
    alarm 0;
};
if ($@) {
    die unless $@ eq "alarm\n";   # propagate unexpected errors
    # timed out
}
else {
    # didn't
}

CPAN 上有一些模块可以更好地包装这些模块，例如： 时间::输出

use Time::Out qw(timeout) ;

timeout $nb_secs => sub {
  # your code goes were and will be interrupted if it runs
  # for more than $nb_secs seconds.
};

if ($@){
  # operation timed-out
}

Answer 2

您可以使用 IPC::Run 的 run 方法代替系统。并设置一个超时时间。

Answer 3

我之前刚刚在 Perl + Linux 中使用过 timeout 命令，您可以这样测试：

for(0..4){
  my $command="sleep $_";  #your command
  print "$command, ";
  system("timeout 1.1s $command");  # kill after 1.1 seconds
  if   ($? == -1  ){ printf "failed to execute: $!" }
  elsif($?&127    ){ printf "died, signal %d, %scoredump", $?&127, $?&128?'':'no '}
  elsif($?>>8==124){ printf "timed out" }
  else             { printf "child finished, exit value %d", $? >> 8 }
  print "\n";
}

4.317 秒后输出：

sleep 0, child finished, exit value 0
sleep 1, child finished, exit value 0
sleep 2, timed out
sleep 3, timed out
sleep 4, timed out

timeout 命令是所有主要“正常”命令的一部分“ Linux 发行版是 coreutils 的一部分。

Answer 4

System::Timeout 怎么样？

此模块扩展了系统以允许在指定秒数后超时。

timeout("3", "sleep 9"); # timeout exit after 3 seconds