的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"); 

Answer 2

您可以使用相同的EVAL这个目的：

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

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

您也可以访问符号表，并得到参考所需子代码：

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

但这并不这么看清洁。

但是，如果你需要的包名称的方法，如呼叫，你可以使用：

$module->new(); 

这也可能是有用的

Answer 3

另一种方式：

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