6

我有下一个程序:

use warnings;
use strict;

BEGIN {
    print \&mysub;
}


sub mysub {};

print \&mysub;

它的输出:

CODE(0x118e890)CODE(0x118e890)

BEGIN块在编译时处理。那时sub mysub编译器还没有看到 of 的定义。但是程序仍然打印正确的子程序地址,它在定义时将具有。

为什么我在这里没有收到错误?这是某种自动复活吗?

4

2 回答 2

4

是的,这是一种自动复活的形式。当需要对 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))
于 2017-07-04T16:57:25.827 回答
2

非常有趣的问题。我将其写为答案而不是评论,因为它会很长,但仍有一些我不完全确定。

我相信你的直觉是正确的,它是一种自动生存的形式。

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(现在不是空的)PADNAMESTART(我不是 Perl 的专家,但我认为是子程序的实际“指针”)。

我希望这有帮助。如果您深入研究这个问题,我很想知道您会发现什么。

于 2017-07-04T13:10:54.580 回答