Perl`defined'和`undef'子例程范围

Question

请看下面的代码：

use strict;
use warnings;


print "subroutine is defined\n" if defined &myf;
myf();

sub myf
{
        print "called myf\n";
}

undef &myf;
#myf();
print "now subroutine is defined\n" if defined &myf;

输出是

subroutine is defined
called myf

第一个print语句可以打印，这是否意味着解释器（或编译器？）进一步查看并查看子例程定义？ 如果是这样，为什么它没有看到undef &myf; 作为第二个print声明？

谢谢

Answer 1

这与范围无关，但与编译时和运行时有关 。 这是一个简化的解释。

Perl解释器最初将扫描您的代码，并遵循任何use语句或BEGIN块。 此时，它会看到所有sub ，并在各自的包中记下它们。 所以现在你的符号表中有一个&::myf 。

当编译时间到达程序结束时，它将切换到运行时。

那时，它实际上运行代码。 如果定义了&myf则执行第一个print语句。 我们知道它是，因为它在编译时设置。 然后Perl调用该函数。 一切都很好。 现在你在符号表中undef该条目。 这也发生在运行时。

之后， defined &myf返回false，因此不会打印。

你甚至在代码中第二次调用myf() ，但是注释掉了。 如果删除注释，它会抱怨未定义的子例程和main :: myf被调用 。 这对发生的事情有很好的暗示。

所以实际上它在代码中没有向前或向后看。 它已经在那时完成了扫描代码。

---

perlmod解释了不同的阶段。

请注意，实际undef函数的用例并不多。 除非您想手动清理命名空间，否则我不明白为什么要删除它。