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;

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

• 上一篇：在Perl模块中检查无穷大的最佳方式下一篇：在Perl中,是否适合在void context中