当我在constant.pm 中使用哈希引用时，为什么 Perl 会抱怨？

Question

我有 ActiveState 提供的为 MSWin32-x86-多线程二进制版本 638 构建的 perl v5.6.1。

我正在编写一个 Perl 脚本，其中声明了稍后用于比较目的的常量。 由于某种原因，我收到一个错误，指出 Constant name 行中的某些内容在脚本的第 31 行（下面代码中 use Constant 子句后面的行）具有无效字符。 我检查发现常量名称中的“_”（下划线）是合法字符。 我还尝试将“0.00”更改为“0”，看看这是否是原因，但我得到了同样的错误。 我不确定我做错了什么。 有人知道为什么编译器不喜欢这样吗？

谢谢！

代码如下：

use constant {
MIN_NET_DLR => 0.00,
MAX_NET_DLR => 99.99,
MIN_SUM_DLR => 0.00,
MAX_SUM_DLR => 999.99,
MIN_UNITS => 0,
MAX_UNITS => 99,
MIN_SUM_UNITS => 0,
MAX_SUM_UNITS => 999,
PCT_THRES_AO => 1,
PCT_THRES_TRANS_CUST_BI => 20,
PCT_THRES_CUST => 3,
};

问题：

问题是 perl 5.6.1 提供的常量版本不支持哈希引用。

解决方案：

使用常量的常规声明。 因此，声明将如下所示：

use constant MIN_NET_DLR => 0.00;
use constant MAX_NET_DLR => 99.99;
use constant MIN_SUM_DLR => 0.00;
use constant MAX_SUM_DLR => 999.99;
use constant MIN_UNITS => 0;
use constant MAX_UNITS => 99;
use constant MIN_SUM_UNITS => 0;
use constant MAX_SUM_UNITS => 999;
use constant PCT_THRES_AO =>    1;
use constant PCT_THRES_TRANS_CUST_BI => 20;
use constant PCT_THRES_CUST => 3;

感谢@leon 提供的解决方案以及其他提出意见的人。

更新：另一种（更优雅的）解决方案是将 Perl 版本更新为支持声明常量时的哈希引用的版本。

Answer 1

问题是您正在使用哈希引用。 perl 5.6.1 提供的 constant 版本不支持这一点。 您要么必须删除大括号，要么升级您的常量。

Answer 2

它在 perl5.8 上对我来说工作正常，但在 perl5.6 上不起作用。 错误信息是：

无法将“HASH(0x80c05d8)”定义为常量（名称包含无效字符或为空）

似乎是旧版本问题，可能是 Leon 描述。

Answer 3

您的旧 Perl 可能不支持在一条语句中声明多个常量的语法。 尝试像这样单独定义每个常量......

use constant MAX_NET_DLR => 99.99;

Answer 4

我会使用 Readonly 模块。

常量的缺点是，它在调用者命名空间内创建一个返回常量值的函数。

Readonly 可用于将标量、数组和散列声明为只读（实常量）。

Answer 5

对我有用。 您确定该代码中的某处没有任何控制字符吗？

Answer 6

我很惊讶没有人建议这样做（这有点难看，实际上我用 Perl 5.18.2 测试了它）：

use constant HASH => {
    a => 1,
    b => 2
};

BEGIN {
    while (my ($n, $v) = each %{(HASH)}) {
        eval "use constant $n => $v";
    }
}

对于长长的常量列表，这可能值得麻烦，但到今天为止，这都是历史性的。

Answer 7

删除此行末尾的最后一个逗号：

PCT_THRES_CUST => 3,

这可能是问题所在。