Question

我知道$@是一个全局变量的事实，在使用eval之前我仍然无法弄清楚为什么需要对其进行本地化：

例如：

eval { SOME_FUNC_THAT_MAY_DIE(); };
if ($@) {
  print "An error occured!\n";
}

我能想到的唯一可能的事情是，如果某个信号处理程序在我尝试阅读die的同时调用$@，我在这里缺少什么？

Answer 1

在致电local $@之前说出eval的原因是为了避免踩到来电者的$@。子程序改变任何全局变量是非常粗鲁的（除非这是子程序的既定目的之一）。对于顶级代码（不在任何子例程中），这实际上不是问题。

此外，在较旧的Perl上，在对象销毁期间调用的任何eval都会破坏全局$@（如果对象被销毁，因为从eval块抛出异常）除非先$@已本地化。这是fixed in 5.14.0，但很多人仍在使用旧的Perls。

Answer 2

Try::Tiny模块文档给出了基本原理（以及提供替代方案）：

当你运行一个eval块并且它成功时，$ @将被清除，可能会破坏当前被捕获的错误。这会导致远程操作，清除调用者可能尚未处理的先前错误。在调用eval之前，$ @必须正确本地化，以避免此问题。更具体地说，$ @在eval的开头被破坏了，这也使得在你死之前无法捕获先前的错误（例如在制作具有错误堆栈的异常对象时）。

Answer 3

您不需要，但是如果您编写这样的代码，则对$ @进行本地化将使第一个错误保持原样。如果您未编写此类代码，则本地$ @将无效。最好在运行任何额外的代码之前先处理错误。

eval {
    die "error 1\n";
};
foo();
print "processing $@\n";

sub foo {
    #local $@;
    eval {
        die "error 2\n";
    };
}

为什么在使用eval之前我需要本地化$ @？

3 个答案: