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

Question

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

Answer 1

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

另一方面，您可以编写一个定义常量的模块，然后使用 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 来定义常量。 .使用这样的常量可能会更快，但是如果您需要将它们插入到字符串中，它们会很尴尬。