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 块。此时，它会看到所有subs，并将它们记录在各自的包中。所以现在你的符号表中有一个&::myf。

当编译时间到达程序的末尾时，它将切换到运行时间。

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

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

你甚至在代码中有第二次调用myf()，但被注释掉了。如果你删除评论，它会抱怨Undefined subroutine &main::myf called。这很好地暗示了发生的事情。

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

---

不同阶段解释in perlmod。

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