如何编写不在 eval 块中触发的 SIG{__DIE__} 处理程序？

Question

根据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 } }

这可能看起来很模糊，但它是相当真实的，因为您可以在这里requireeval看到它在此方法中使用（失败并被 an 捕获），或者在我的情况下特别是在这里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？

Answer 1

查看 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提供指针。