警报转义 Perl 'eval' 块

Question

我有一个自动从各种来源下载内容的 Perl 脚本。它使用alarm 在eval 块中进行下载，这样如果时间过长，尝试就会超时：

eval {
    alarm(5);
    my $res = $ua->request($req);
    $status = $res->is_success;
    $rawContent = $res->content;    
    $httpCode = $res->code;
    alarm(0);       
};

这已经工作了多年，但是在进行了一些系统更新后，它突然停止工作。相反，它遇到的第一个源超时，我收到以下错误并且程序终止：

 Alarm clock

我做错了什么导致eval 无法突然收到警报？

Answer 1

SIGALRM 的默认值是终止程序，所以你需要处理它。一种常见的方法是在捕获到 SIGALRM 时发出die，将其变成异常，即eval-ed。

eval {
    local $SIG{ALRM} = sub { die "Timed out" };
    alarm(5);
    my $res = $ua->request($req);
    $status = $res->is_success;
    $rawContent = $res->content;    
    $httpCode = $res->code;
    alarm(0);       
};
if ($@ and $@ !~ /Timed out/) { die }  # re-raise if it is other error

来自Signals in perlipc

信号处理也用于 Unix 中的超时，虽然在 eval{} 块中受到安全保护，但您设置一个信号处理程序来捕获警报信号，然后安排在几秒钟内将一个信号发送给您。然后尝试您的阻止操作，在完成时清除警报，但在您退出 eval{} 阻止之前清除警报。如果它关闭，您将使用 die() 跳出块，就像您在其他语言中使用 longjmp() 或 throw() 一样。

---

至于它是如何工作的，我能想到的一件事是eval 内部使用的包有自己的计时器，基于alarm，因此取消了您的alarm。来自alarm

一次只能有一个计时器在计时。每次调用都会禁用前一个计时器，并且可以提供一个参数 0 来取消前一个计时器而不启动新计时器。

他们可能会在超时时抛出异常，而您有预期的行为。此软件包行为在更新中发生了变化，现在您的警报可以正常工作并需要处理。当然，这是一个猜测。