如何在 Perl 的单独文件中定义常量？

Question

我有一堆 Perl 文件，其中包含一些文件名常量。我想在一个单独的文件中定义这些 - 类似于 C 中的头文件。在 Perl 中最好/最标准的方法是什么？

Answer 1

一种方法是将它们编写为 perl 模块，随后您可以将其包含在“require”或“use”中。你会这样写你的文件——给它一个 .pm 扩展名（例如，myFabulousPackage.pm）

package myFabulousPackage;

$someSetting=45;
$otherSetting='Fish';

1;

然后在您的 perl 脚本中，这将包含该文件，然后引用 $otherSetting：

#!/usr/bin/perl

use myFabulousPackage;

print $myFabulousPackage::otherSetting;

这只是您可以使用包/模块做什么的一个非常简单的视图，但是对于您的需要，这可能是实现它的最简单方法。同样，您也可以将 sub 放入包中，并以类似的方式引用它们。

Answer 2

我们通常使用模块名称常量来执行此操作。比如：

package MyPackage::Constants;

our $DIR = "/home/chriss";
our $MAX_FILES = 5;

1;

然后，使用它：

package MyPackage;
use MyPackage::Constants;

open(my $fh, ">", $MyPackage::Constants::DIR . "/file");

如果你不想一直引用包，你可以使用 Exporter 并引入所有你想要的符号。

Answer 3

这听起来像是配置设置，最好将其放入您使用各种 CPAN 模块之一解析的配置文件中，例如 Config::Any。

配置是数据，IMO 不应该在您的代码中。

Answer 4

Perl 中没有与 C 头文件等效的东西。要声明和定义全局常量，您可以使用define pragma。尽管界面看起来很合理，但我没有使用此模块的经验。

另一方面，您可以编写一个定义常量的模块，然后使用use 将它们导入到您的模块中。例如：

package MyConstants;

use strict; use warnings;

use Exporter qw( import );
use Const::Fast;

our @EXPORT = qw();
our @EXPORT_OK = qw( $X $Y );

const our $X => 'this is X';
const our $Y => 'this is Y';

__PACKAGE__;
__END__

然后您可以按如下方式使用此模块：

#!/usr/bin/perl

use strict; use warnings;

use MyConstants qw( $X );

print "$X\n";
print "$MyConstants::Y\n";

如果您可以使用完全限定的变量名（例如$MyConstants::Y），则根本不需要Exporter。

此外，请确保您导出的变量不可在其他地方修改（请参阅 Exporter 文档中的注意事项）。

当然，您也可以使用constant.pm 定义常量。使用此类常量可能会更快，但如果您需要将它们插入字符串中，它们会很尴尬。