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

【问题标题】：perl how to access func when the module is imported on the flyperl如何在动态导入模块时访问func
【发布时间】：2011-11-09 00:31:31
【问题描述】：

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

package Test;
use strict;
use warnings;

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

在另一个模块中，我像这样插入这个：

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

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

【问题讨论】：

【解决方案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");

【讨论】：

【解决方案2】：

另一种方式：

$module->can('hello')->('test');

【讨论】：

【解决方案3】：

您可以在此目的中使用相同的 eval：

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

eval $module . "::hello()";

您还可以访问符号表并获取所需子代码的参考：

my $code = do { no strict 'refs'; \&{ $module . '::hello' } };
$code->();

但这看起来不太干净。

但是，如果您需要对包名称进行类似方法的调用，则可以使用：

$module->new();

这也很有用

【讨论】：