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

发布时间：2020-12-15 21:58:57 所属栏目：大数据来源：网络整理

导读：我知道$@是一个全局变量这一事实,我仍然无法弄清楚为什么我需要在使用 eval之前对其进行本地化：例如： eval { SOME_FUNC_THAT_MAY_DIE(); };if ($@) { print "An error occured!n";} 我能想到的唯一可能的事情是,如果某个信号处理程序在尝试读取$@的同时

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

例如：

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

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

解决方法

在调用eval之前说出本地$@的原因是为了避免踩到你的来电者的$@.子程序改变任何全局变量是非常粗鲁的(除非这是子程序的既定目的之一).对于顶级代码(不在任何子例程中),这实际上不是问题.

此外,在较旧的Perl上,在对象销毁期间调用的任何eval都会破坏全局$@(如果对象因为从eval块抛出异常而被销毁),除非$@首先被本地化.这是fixed in 5.14.0,但许多人仍在运行旧的Perls.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!