3

根据perldoc -f die, 哪些文件$SIG{__DIE__}

虽然这个特性只在你的程序即将退出之前运行，但目前还不是这样：这个$SIG{__DIE__}钩子目前甚至在 evaled 块/字符串中也被调用了！如果希望钩子在这种情况下什么都不做，请将die @_ if $^S;其作为处理程序的第一行（参见$^Sperlvar）。因为这会促进远处的奇怪动作，所以这种违反直觉的行为可能会在未来的版本中得到修复。

因此，让我们采用一个基本的信号处理程序，它将触发eval { die 42 }，

package Stupid::Insanity {
  BEGIN { $SIG{__DIE__} = sub { print STDERR "ERROR"; exit; }; }
}

我们通过以下方式确保安全

package Stupid::Insanity {
  BEGIN { $SIG{__DIE__} = sub { return if $^S; print STDERR "ERROR"; exit; }; }
}

现在这不会用 触发eval { die 42 }，但是当相同的代码在BEGIN {}像这样的块中时它会触发

BEGIN { eval { die 42 } }

这可能看起来晦涩难懂，但它是相当真实的，因为您可以看到它在此处的此方法中使用（require失败并被 an 捕获eval），或者在我的情况下特别是此处Net::DNS::Parameters。你可能认为你也可以赶上编译器阶段，像这样，

BEGIN {
  $SIG{__DIE__} = sub {
    return if ${^GLOBAL_PHASE} eq 'START' || $^S;
    print STDERR "ERROR";
    exit;
  };
}

这将适用于上述情况，但可惜它不适用于其中包含 BEGIN 语句的文档的要求，

eval "BEGIN { eval { die 42 } }";

有没有办法解决这个问题并编写一个$SIG{__DIE__}不干扰的处理程序eval？

4

1 回答 1

5

查看caller(1)

在兔子洞再往下一点[caller(1)]->[3] eq '(eval)' 

return if [caller(1)]->[3] eq '(eval)' || ${^GLOBAL_PHASE} eq 'START' || $^S;

爬取整个调用堆栈

您可以爬取整个堆栈并确保您没有深入评估，

for ( my $i = 0; my @frame = caller($i); $i++ ) {
  return if $frame[3] eq '(eval)'
}

是的，这完全是精神错乱。感谢 mst onirc.freenode.net/#perl的指针。

于 2021-01-21T21:40:31.993 回答