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

发布时间：2020-12-15 21:26:07 所属栏目：大数据来源：网络整理

导读：如果我在Perl模块中定义一个常量，我如何在我的主程序中使用该常量？ (或者如何在主程序中调用该常量？) 解决方法常量可以像其他软件包符号一样导出。使用标准 Exporter模块，您可以从包中导出常量，如下所示： package Foo;use strict;use warnings;use ba

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

解决方法

常量可以像其他软件包符号一样导出。使用标准 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','MOE' ] );

然后你可以说

use Foo ':stooges';
print "$_n" for LARRY,CURLY,MOE;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!