如何在Perl中有条件地使用模块？

Question

我想在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;

无论如何我能做到这一点.某种编译器指令？

Answer 1

您可能会发现该if模块对此非常有用.

否则,基本思想是使用require,它在运行时发生,而不是use在编译时发生.注意 '

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" } };
};

Answer 2

除非执行速度很重要,否则可以使用字符串eval:

if (Condition1) {
    eval "use $Module1"; die $@ if $@;
}
elsif (Condition2) {
    eval "use $Module2"; die $@ if $@;
}

Answer 3

人们已经告诉过你如何使用Perl原语加载模块.还有Module :: Load :: Conditional.

如果你想要访问一个同名的数组,无论你加载哪个模块,考虑为它制作一个方法,这样你就可以跳过符号引用的东西.为每个模块提供一个相同名称的方法:

  package ReportHashFileFoo;
  our @some_package_variable;
  sub get_array { \@some_package_variable }

然后,当您加载该模块时:

  if( ... some condition ... ) {
       eval "use $module" or croak ...;
       my $array_ref = $module->get_array;
       }

我不知道你在做什么(XY问题),但可能有更好的设计.当事情看起来像这样棘手时,通常是因为你忽视了一种更好的方式.

Answer 4

也许有帮助...

一个调试的小例子。

sub DEBUG () {1};               # It's the condition (may be a debuglevel...)

use if DEBUG, Data::Dumper;     # Conditionally load

my $testvar = "foo";
print "Testing: $testvar\n" if     DEBUG;
print "No testing\n"        unless DEBUG;

print Dumper \$testvar if DEBUG;  # "Dumper" only available if "DEBUG" returns "true".

输出与sub DEBUG () {1};

Testing: foo
$VAR1 = \'foo';

输出与sub DEBUG () {0};

No testing

qv perldoc.perl.org/if