子里面的 Perl 子

Question

我想在另一个子里面有一个子，

sub a {
    sub b {
    }
}

我想为每次调用 sub b 创建一个新的 sub a 实例。有没有办法在 Perl 中做到这一点？

当我运行上面的代码并在 sub b中打印 sub a的地址时，我总是得到与 sub b相同的地址，例如

sub a {
    print \&b;
    sub b{
    }
}

This link on Perl Monks 说我们可以这样做，但我总是看到 sub b 的相同地址。

有没有一种方法可以为每次 sub b的调用创建一个新的 sub a实例？

Answer 1

sub a {
    sub b{
    }
}

基本上是一样的:

sub a {

}
sub b{
}

因为命名子程序存在于符号表中，因此它们是全局的。
您将需要返回对子程序的引用。