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

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

导读：我有一堆Perl文件,其中包含一些文件名常量.我想在一个单独的文件中定义这些 – 像C中的头文件.在Perl中最好的/最标准的方法是什么？解决方法在Perl中没有相当于C头文件.要声明和定义全局常量,可以使用 define的pragma.我没有这个模块的经验,虽然接口似乎是

我有一堆Perl文件,其中包含一些文件名常量.我想在一个单独的文件中定义这些 – 像C中的头文件.在Perl中最好的/最标准的方法是什么？

解决方法

在Perl中没有相当于C头文件.要声明和定义全局常量,可以使用 define的pragma.我没有这个模块的经验,虽然接口似乎是明智的.

另一方面,您可以编写一个模块,在该模块中定义常量,并使用它们将其导入模块.例如：

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 "$Xn";
print "$MyConstants::Yn";

如果您使用完全限定的变量名称(例如$MyConstants :: Y),则完全不需要导出器.

此外,确保导出的变量在其他地方不可修改(请参阅Exporter文档中的警告).

当然,您也可以使用constant.pm定义常量.使用这些常量可能会更快,但是如果您需要在字符串中插入它们,它们会变得很尴尬.

（编辑：李大同）

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