我正在使用常量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”;部分使用将成为无效.