perl - 如何有条件地包含 Perl 模块和库，以及它们的全局变量

Question

我正在开发一个 Perl 脚本。在里面我使用了各种模块:

use Module::One;
use Module::Two;
...

我还使用这些模块中的全局变量:

$GLOBAL_1 = 1;
$GLOBAL_2 = 1;
...

假设脚本的名称是

my_script.pl

是否可以在向脚本传递名为“no_libs”的参数时有条件地包含上述模块和全局变量，但只要不传递此参数 - 不包含或使用它们？ 类似的东西:

perl my_cript.pl no_libs

if ( $ARGV[0] eq 'no_libs' ) {
    use Module::One;
    use Module::Two;
    ...

    $GLOBAL_1 = 1;
    $GLOBAL_2 = 1;
    ...
}

Answer 1

我希望示例 $ARGV[0] eq '...' 真正代表了对命令行参数的更多处理，包括对变量的赋值等。然后这发生在运行时，你不能以那种方式设置 use，因为它是在编译时运行的。

上述示例在编译时有效，在这种情况下使用 if pragma

use if @ARGV && ($ARGV[0] eq 'no_libs'), "Module::One", qw(...);

如果条件为真，则与使用Module::One qw(...)效果相同。

如果决定确实发生在运行时，那么您需要使用 require而是

if ($no_libs) {
    require Module::One;
    Module::One->import( qw(f1 f2) );  # as in: use Module::One qw(f1 f2);
    ...
}

use归结为 require 因为 use Module LIST; 的意思正是

BEGIN { require Module; Module->import( LIST ); }

所以你实际上是在做同样的事情，但在运行时。

但是，全局变量不能以这种方式导入，因为 strict 不会及时声明它们。感谢 ikegami评论。您可以直接将它们用作 $Module::One::Var，用于 Module::One 中的 our $Var，但请参阅以下评论。

一般来说，从模块中导出全局变量并不是一个好的做法，因为它会通过纠缠本应不同的组件并绕过它们的接口(interface)来侵 eclipse 整体设计。它还可能导致微妙且难以检测的问题。

有条件地拥有全局变量似乎很奇怪:如果它们可能不存在，你如何使用它们？这可能是一个令人困惑的设计，可能会被更改。