perl - 如何使用 Perl 模块中的常量？

Question

如果我在 Perl 模块中定义常量，我如何在主程序中使用该常量？ (或者如何在主程序中调用该常量？)

Answer 1

常量可以像其他包符号一样导出。使用标准Exporter模块中，您可以从包中导出常量，如下所示:

package Foo;
use strict;
use warnings;

use base 'Exporter';

use constant CONST => 42;

our @EXPORT_OK = ('CONST');

1;

然后，在客户端脚本(或其他模块)中

use Foo 'CONST';
print CONST;

您可以使用 %EXPORT_TAGS 哈希(请参阅导出器文档)来定义可通过单个导入参数导出的常量组。

更新:以下是在有多个常量时如何使用 %EXPORT_TAGS 功能的示例。

use constant LARRY => 42;
use constant CURLY => 43;
use constant MOE   => 44;

our @EXPORT_OK = ('LARRY', 'CURLY', 'MOE');
our %EXPORT_TAGS = ( stooges => [ 'LARRY', 'CURLY', 'MOE' ] );

那么你可以说

use Foo ':stooges';
print "$_\n" for LARRY, CURLY, MOE;