perl 如何在模块动态导入时访问 func

Question

我有一个如下所示的模块:

package Test;
use strict;
use warnings;

sub hello {
    my $val = shift
    print "val = $val\n";
}

在另一个模块中我插入这个模块，如下所示:

my $module = 'Test'
eval "require $module";

如何在第二个模块中调用函数 hello/我的意思是像函数而不是方法/。

Answer 1

您可以使用符号引用:

{
    no strict 'refs';   # disable strictures for the enclosing block
    &{ $module . '::hello' };
}

或者，您可以将函数导出到调用包(请参阅 Exporter ):

package Test;
use Exporter 'import';
our @EXPORT = qw(hello);

sub hello {
...
}

然后在您的代码中:

my $module = 'Test'
eval "use $module";
hello("test");