Perl：如何使用严格的 perl 文件中其他 pl 文件中定义的常量？

Question

我们有一些 perl 文件处于严格模式，而有些则没有。一些常量（全局变量）在 perl 库 (.pl) 中以非严格模式定义，例如 "$XXXX = '....';" .

当我尝试在严格模式下处理 perl 文件以使用此类常量/全局变量（在非严格模式 perl 文件中定义）时，出现编译错误“全局符号“$XXXX”需要显式包名” .

我对 perl 有点陌生。到目前为止，在我看来，包仅在 perl 模块 (.pm) 中可用，我无法将包添加到 perl 库 (.pl) 文件中，对吗？

我想最好的方法是将所有常量放在一个模块中，但这需要更改所有使用常量的文件。现在我们更喜欢最小数量的文件更改。我想知道是否有其他方法可以在保持原始严格或非严格模式的同时解决它？

Answer 1

这（部分）是 Exporter 的用途。

在MyConsts.pm:

package MyConsts;

use strict;
use warnings;

# Load the Exporter module
use parent 'Exporter';

# Define the symbols that will be exported
our @EXPORT = qw($Important_Constant);

# Declare and set the variables.
# Note that they must be *package* variables
# (so use "our", not "my")
our $Important_Constant = 10;

1;

在程序中：

#!/usr/bin/perl

use strict;
use warnings;
use feature 'say';

use MyConsts;

say $Important_Constant;