在Perl中使用常量

我正在使用常量pragma来定义Perl中的常量:
use constant {
    FOO => "bar",BAR => "foo"
};

我遇到麻烦,希望有一个标准的处理方式.

首先…

我正在为Subversion定义一个钩子脚本.为了使事情变得简单,我想要一个文件,我使用的类(包)与我的实际脚本在同一个文件中.

这个包中的大部分都会涉及到它的常量:

print "This is my program";

 package MyClass;

 use constant {
    FOO => "bar"
 };

 sub new { ... }

我希望我的常规FOO可以访问我的主程序.我想这样做,而不必将其称为MyClass :: FOO.通常,当程序包是单独的文件时,我可以在我的主程序中执行此操作:

use MyClass qw(FOO);

但是,由于我的类和程序是单个文件,我不能这样做.我的主程序能够访问我课堂中定义的常量的最佳方法是什么?

第二个问题…

我想使用常量值作为散列键:

$myHash{FOO} = "bar";

问题是%myHash的文本字符串FOO作为键,而不是常量的值.当我这样做的时候会造成问题:

if (defined $myHash{FOO}) {
   print "Key " . FOO . " does exist!\n";
}

我可以强制上下文:

if (defined $myHash{"" . FOO . ""}) {

我可以添加括号:

if (defined $myHash{FOO()}) {

或者,我可以使用一个临时变量:

my $foo = FOO;
if (defined $myHash{$foo}) {

这些都不是处理这个问题的好方法.那么最好的方法是什么?有没有一种我失踪的方式?

顺便说一下,我不想使用Readonly :: Scalar,因为它是1).慢,和2).不是标准Perl包的一部分.我想定义我的钩子不需要额外的Perl包,并尽可能简单的工作.

解决方法

如果要将所有内容保存在同一个文件中,可以按如下方式定义常量包:
use warnings;
use strict;

BEGIN {  # BEGIN means this will all happen at compile time
    package Constants;

    $INC{'Constants.pm'}++;     # tell `require` that the package is loaded
    use base 'Exporter';        # setup package to export
    our @EXPORT_OK = qw( PI );  # what to export

    use constant PI => 3.14159; # define your constant
}

package main;

use Constants qw( PI );  # use it like normal

print PI;

然后愚弄哈希下标中的自动引用,你可以这样写:$hash {PI}或$hash {(PI)}或$hash {PI()}或$hash {& PI}或$hash {:: PI} …我可能会继续前进,但我想你得到点.

需要$INC {‘Constants.pm’}的原因是因为使用常量qw(PI);线真的意思是:

BEGIN {
    require 'Constants.pm';
    Constants->import( qw( PI ) );
}

并且要求将检查%INC,以查看包装是否已经加载.所以给它一个真正的价值(在这种情况下为1),需要“Constants.pm”;部分使用将成为无效.

相关文章

1. 如何去重 #!/usr/bin/perl use strict; my %hash; while(...
最近写了一个perl脚本,实现的功能是将表格中其中两列的数据...
表的数据字典格式如下:如果手动写MySQL建表语句,确认麻烦,...
巡检类工作经常会出具日报,最近在原有日报的基础上又新增了...
在实际生产环境中,常常需要从后台日志中截取报文,报文的形...
最近写的一个perl程序,通过关键词匹配统计其出现的频率,让...