我有下一个程序:
use warnings;
use strict;
BEGIN {
print \&mysub;
}
sub mysub {};
print \&mysub;
它的输出:
CODE(0x118e890)CODE(0x118e890)
该BEGIN
块在编译时处理。那时sub mysub
编译器还没有看到 of 的定义。但是程序仍然打印正确的子程序地址,它在定义时将具有。
为什么我在这里没有收到错误?这是某种自动复活吗?
我有下一个程序:
use warnings;
use strict;
BEGIN {
print \&mysub;
}
sub mysub {};
print \&mysub;
它的输出:
CODE(0x118e890)CODE(0x118e890)
该BEGIN
块在编译时处理。那时sub mysub
编译器还没有看到 of 的定义。但是程序仍然打印正确的子程序地址,它在定义时将具有。
为什么我在这里没有收到错误?这是某种自动复活吗?
是的,这是一种自动复活的形式。当需要对 sub 的引用并且 sub 不存在时,将创建一个存根。
use strict;
use warnings qw( all );
use feature qw( say );
sub test {
say defined(&mysub) ? "defined (".\&mysub.")"
: exists(&mysub) ? "exists (".\&mysub.")"
: "doesn't exist";
}
test();
my $ref = \&mysub;
test();
eval("sub mysub { } 1") or die($@);
test();
输出:
doesn't exist
exists (CODE(0xab8cd8))
defined (CODE(0xab8cd8))
非常有趣的问题。我将其写为答案而不是评论,因为它会很长,但仍有一些我不完全确定。
我相信你的直觉是正确的,它是一种自动生存的形式。
Devel::Peek可以更多地了解正在发生的事情。
我稍微更改了您的代码:
use warnings;
use strict;
use Devel::Peek;
$|++;
BEGIN {
Dump( \&mysub );
print \&mysub;
};
sub mysub {};
Dump( \&mysub );
print \&mysub;
我添加了$|++
以便缓冲不会引起混淆,并添加了调用以Devel::Peek::Dump
查看参考\&mysub
。这是我系统上的输出:
SV = IV(0x2628628) at 0x2628638
REFCNT = 1
FLAGS = (TEMP,ROK)
RV = 0x26286e0
SV = PVCV(0x2640750) at 0x26286e0
REFCNT = 2
FLAGS = (DYNFILE)
COMP_STASH = 0x25ffdb0 "main"
ROOT = 0x0
GVGV::GV = 0x26287a0 "main" :: "mysub"
FILE = "/tmp/autov.pl"
DEPTH = 0
FLAGS = 0x1000
OUTSIDE_SEQ = 0
PADLIST = 0x0
OUTSIDE = 0x0 (null)
CODE(0x26286e0)SV = IV(0x25fff20) at 0x25fff30
REFCNT = 1
FLAGS = (TEMP,ROK)
RV = 0x26286e0
SV = PVCV(0x2640750) at 0x26286e0
REFCNT = 2
FLAGS = (DYNFILE)
COMP_STASH = 0x25ffdb0 "main"
START = 0x262ea50 ===> 1
ROOT = 0x262ea10
GVGV::GV = 0x26287a0 "main" :: "mysub"
FILE = "/tmp/autov.pl"
DEPTH = 0
FLAGS = 0x1000
OUTSIDE_SEQ = 371
PADLIST = 0x2648620
PADNAME = 0x2630180(0x2667f70) PAD = 0x2628770(0x262f020)
OUTSIDE = 0x2600140 (MAIN)
CODE(0x26286e0)
注意Dump
两个调用之间的输出如何变化。第一次Dump
调用我们只是有一个空标量的引用。第二次,在子例程的实际定义之后,您可以看到与子例程有关的细节已经充实:即PADLIST
(现在不是空的)PADNAME
和START
(我不是 Perl 的专家,但我认为这是子程序的实际“指针”)。
我希望这有帮助。如果您深入研究这个问题,我很想知道您会发现什么。