珀尔 : How to use constant tag value as key of associative array in?

Question

perl中如何使用常量标签值作为hash的key？

以下代码的输出是“CONST_TAG”。我希望输出为“MyKey”。

#!/usr/bin/perl

use constant CONST_TAG => 'MyKey';

my $rec = {};
$rec->{CONST_TAG} = "testName";
printf "%s\n", keys(%{$rec});

Answer 1

除了像 user49740 在他的回答中所说的那样通过在其上放置括号显式地调用 sub(毕竟常量只是一个 sub)，您还可以在 bareword 前面添加一个 + 符号.这将关闭哈希访问 curlies 内裸词的自动引用。

$res->{+CONST_TAG} = "testName";

另见 these answers。