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

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

根据perldoc -f die，其中文件$SIG{__DIE__}

尽管此功能只能在您的程序退出之前运行，但目前并非如此：$SIG{__DIE__} 钩子当前甚至在已评估的块/字符串中也被调用！如果希望钩子在这种情况下什么都不做，请将 die @_ if $^S; 作为处理程序的第一行（请参阅 perlvar 中的 $^S）。由于这会促进远距离的奇怪动作，因此可能会在未来版本中修复这种违反直觉的行为。

所以让我们来看看一个基本的信号处理程序，它将用 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; }; }
}

现在这将NOT用eval { die 42 }触发，但是当相同的代码在像

这样的BEGIN {}块中时它会触发

BEGIN { eval { die 42 } }

这可能看起来很晦涩，但它是真实的，因为您可以看到它是 used in this method here (where the require fails and it's caught by 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 处理程序？

解决方法

检查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)'
}

---

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