perl - 给定 Perl 中的包名，如何从包中调用子程序？

Question

给定一个包含表示包名称的字符串的变量，我如何调用包的特定子例程？

这是我想出的最接近的事情:

package MyPackage;

sub echo {
    print shift;
}

my $package_name = 'MyPackage';
$package_name->echo('Hello World');

1;

这段代码的问题是子程序作为类方法被调用；包名作为第一个参数传入。我想从包名调用子例程，而不隐式传入特殊的第一个参数。

Answer 1

听起来您实际上并不想将其作为方法调用，而是作为常规子例程调用。在这种情况下，您可以使用符号引用:

my $package_name = 'MyPackage';
{ 
    no strict 'refs';
    &{ $package_name . '::echo' }( 'Hello World' );
}