Question

我有一个Perl模块（Module.pm），它初始化了许多变量，其中一些我想导入（$ VAR2，$ VAR3）到可能在执行期间加载的其他子模块。

我目前设置Module.pm的方式如下：

package Module;

use warnings;
use strict;

use vars qw($SUBMODULES $VAR1 $VAR2 $VAR3);

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw($VAR2 $VAR3);

sub new {
    my ($package) = @_;
    my $self = {};
    bless ($self, $package);
    return $self;
}

sub SubModules1 {
    my $self = shift;
    if($SUBMODULES->{'1'}) { return $SUBMODULES->{'1'}; }

    # Load & cache submodule
    require Module::SubModule1;
    $SUBMODULES->{'1'} = Module::SubModule1->new(@_);    
    return $SUBMODULES->{'1'};
}

sub SubModules2 {
    my $self = shift;
    if($SUBMODULES->{'2'}) { return $SUBMODULES->{'2'}; }

    # Load & cache submodule
    require Module::SubModule2;
    $SUBMODULES->{'2'} = Module::SubModule2->new(@_);    
    return $SUBMODULES->{'2'};
}

每个子模块的结构如下：

package Module::SubModule1;

use warnings;
use strict;
use Carp;

use vars qw();

sub new {
    my ($package) = @_;
    my $self = {};
    bless ($self, $package);
    return $self;
}

我希望能够将$ VAR2和$ VAR3变量导入每个子模块，而不必将它们引用为$ Module :: VAR2和$ Module :: VAR3。我注意到调用脚本能够以所需的方式访问我在Module.pm中导出的变量，但SubModule1.pm和SubModule2.pm仍然必须将变量引用为Module.pm。

我尝试按如下方式更新每个子模块，但遗憾的是我无法工作：

package Module::SubModule1;

use warnings;
use strict;
use Carp;

use vars qw($VAR2 $VAR3);

sub new {
    my ($package) = @_;
    my $self = {};
    bless ($self, $package);
    $VAR2 = $Module::VAR2;
    $VAR3 = $Module::VAR3;
    return $self;
}

请告诉我如何将Module.pm中的$ VAR2和$ VAR3成功导出到每个子模块中。在此先感谢您的帮助！

Answer 1

在您的子模块中，您是否忘记说

use Module;

？从另一个包（例如use Module）调用Module::Submodule9将尝试运行Module::import方法。由于您没有该方法，它将调用Exporter::import方法，这就是将Module命名空间中的Module::Submodule9变量导出的魔法。

<小时/>

在您的程序中，只有一个Module命名空间，只有一个（全局）变量$Module::VAR2的实例。导出会在其他名称空间中为此变量创建别名，因此可以通过不同方式访问同一变量。在单独的脚本中尝试这个：

package Whatever;
use Module;
use strict;
use vars qw($VAR2);

$Module::VAR2 = 5;
print $Whatever::VAR2;    # should be 5.
$VAR2 = 14;               # same as $Whatever::VAR2 = 14
print $Module::VAR2;      # should be 14

Answer 2

嗯有简单的方法：

在M.pm：

package M;

use strict;
use warnings;

#our is better than "use vars" for creating package variables
#it creates an alias to $M::foo named $foo in the current lexical scope 
our $foo = 5;

sub inM { print "$foo\n" }

1;

在M / S.pm

package M;

#creates an alias to $M::foo that will last for the entire scope,
#in this case the entire file
our $foo;

package M::S;

use strict;
use warnings;

sub inMS { print "$foo\n" }

1;

在剧本中：

#!/usr/bin/perl

use strict;
use warnings;

use M;
use M::S;

M::inM();
M::S::inMS();

但我会建议不要这样做。全局变量不是一个好习惯，在模块之间共享全局变量的情况更糟。

Perl从调用模块导入变量

2 个答案: