在Perl中,如何访问另一个包中定义的标量？

Question

我似乎被困在尝试访问另一个包中定义的标量,并将示例缩小到一个简单的测试用例,我可以重现这个问题.我希望能够使用我们的机制访问对包'Example'中定义的列表的引用,但是,Dumper显示该变量在example.pl中始终未定义:

Example.pm如下所示:

#!/usr/bin/perl -w

use strict;
use warnings;
use diagnostics;

package Example;
use Data::Dumper;

my $exported_array = [ 'one', 'two', 'three' ];
print Dumper $exported_array;

1;

使用此包的代码如下所示:

#!/usr/bin/perl -w

use strict;
use warnings;
use diagnostics;
use Data::Dumper;

use lib '.';
use Example;

{ package Example;
  use Data::Dumper;
  our $exported_array;
  print Dumper $exported_array;
}

exit 0;

在运行此代码时,第一个Dumper运行并且事情看起来正常,此后,第二个Dumper,example.pl运行,然后引用未定义:

$VAR1 = [
          'one',
          'two',
          'three'
        ];
$VAR1 = undef;

Answer 1

一个my声明不创建一个包级别的变量和任何命名空间不输入任何东西到符号表.

要做你想要做的事情,你必须将第一个文件中的声明更改为

our $exported_array = [ ... ];

然后,您可以在另一个文件中访问它

$Example::exported_array

Answer 2

即使$exported_array没有在词法作用域Example包Example的$exported_array和主要的 $exported_array是两个不同的东西.改变你给的例子,最简单的方式是1的变化my,以our在Example声明中,明确限定的变量名.

our $exported_array;

...

print Dumper $Example::exported_array;

否则,你需要做Example一个Exporter.(或者只是写一个Example::import例行公事 - 但我不打算这样做.)

package Example;
our $exported_array = ...;
our @EXPORT_OK = qw<$exported_array>;
use parent qw<Exporter>;

并在脚本中:

use Example qw<$exported_array>;

但是,因为你可以实际导出数组(不仅仅是引用),我会这样做:

our @exported_array = (...);
our @EXPORT_OK      = qw<@exported_array>;
...
use Example qw<@exported_array>;
...
print Dumper( \@exported_array );