我有点惊讶。如果我为散列键使用常量，Perl 不会使用该值。我需要在它前面加上 & 才能做到这一点。
use constant A => "a";
use constant B => "b";
my %h = (A => "1", &B => "2");
print "\n". A . ", " . B;
foreach (sort (keys (%h)))
{
print "\n" . $_ . "=" . $h {$_};
}
输出：
a, b
A=1
b=2
但我希望（第二行不同）。
a, b
a=1
b=2
当使用常量作为哈希键时，没有 & 的任何方法？
感谢您的帮助！
【问题讨论】：
它记录在 CAVEATS 下的 constant 中。
常用的方式是使用()：
my %h = (A => "1", B() => "2");
或切换到“非字符串化的胖逗号”（或简单的逗号）：
my %h = (A => "1", B ,=> "2");
使用& 不会内联常量，您可以使用B::Deparse 进行验证：
$ perl -MO=Deparse ~/1.pl
sub B () { 'b' }
use constant ('A', 'a');
use constant ('B', 'b');
my(%h) = ('A', '1', &B, '2');
print "\na, b";
foreach $_ (sort keys %h) {
print "\n" . $_ . '=' . $h{$_};
}
/home/choroba/1.pl syntax OK
【讨论】：
(B)（编译为"b"）而不是B()（编译为较慢的子调用，并且需要知道常量即使不是子调用也可以用作子调用)。
(B) 相同的方式编译为“b”。不过，简洁显示了一个小的差异：s*/FOLD 与 sP*/FOLD，我不明白。简洁显示没有差异。