perl - 全局访问perl中的变量

Question

我有很多文件。在一个文件中，即 (Lib::Utils) 我拥有所有通用函数。我需要为两个变量赋值并在 Lib::Utils 中定义它们，我需要将其导出到其他文件。我不应该在其他文件中声明变量。

我试过如下

在 Lib::Utils 中

package Lib::Utils;

require Exporter;
@ISA = qw(Exporter);

our $FAIL = 0;
our $SUCCESS = 1;

在测试.pl

use strict;
use warnings;

use Lib::Utils;

our ($FAIL, $SUCCESS);

print("$FAIL\n$SUCCESS\n");

但我希望将其从 Lib::Utils 导出到所有其他文件。

Answer 1

如果不填充 @EXPORT 或 @EXPORT_OK，则使用 Exporter 毫无意义。

在Lib/Utils.pm中你需要添加

our @EXPORT_OK = qw/ $FAIL $SUCCESS /;

然后像这样改变test.pl

use strict;
use warnings 'all';

use Lib::Utils qw/ $FAIL $SUCCESS /;

print "$_\n" for $FAIL, $SUCCESS;