我想在Perl中做这样的事情：
$Module1="ReportHashFile1"; # ReportHashFile1.pm
$Module2="ReportHashFile2"; # ReportHashFile2.pm
if(Condition1)
{
use $Module1;
}
elsif(Condition2)
{
use $Module2;
}
ReportHashFile * .pm包含一个ReportHashFile包.
还要怎么引用一个数组里面的模块,基于动态模块名？
@Array= @$Module1::Array_inside_module;
有没有办法我可以实现这一点.某种编译器指令？
解决方法
您可能会发现
if模块对此有用.
否则,基本思想是使用require,这在运行时发生,而不是使用,这在编译时发生.注意 ‘
BEGIN {
my $module = $condition ? $Module1 : $Module2;
my $file = $module;
$file =~ s[::][/]g;
$file .= '.pm';
require $file;
$module->import;
}
至于解决全局变量,如果您刚刚导出变量或将函数返回给调用者,则可能会更容易,您可以通过其不合格的名称使用它.否则还有可能使用一种方法,并将其称为$Module-> method_name.
或者,您可以使用符号参考,如perlref中所述.然而,这通常是一个很好的代码气味.
my @array = do {
no strict 'refs';
@{ ${ "${Module}::Array_inside_module" } };
};