Perl $$var - 两个美元符号作为符号？

Question

这似乎是我应该能够轻松地在 Google、Bing 或 DDG 上搜索到的东西，但我对所有内容都一无所知。

基本上，我的任务是（部分）重写一组旧的 Perl 脚本。我自己不是 Perl 程序员，阅读这些脚本以弄清楚它们在做什么肯定有一个学习曲线，但我已经用这样的线条撞到了一堵绝对的砖墙：

$comment = $$LOC{'DESCRIPTION'};

据我所知，右侧是字典，或者更准确地说，它获取所述字典中键 'DESCRIPTION' 引用的值。但是它前面的“额外”美元符号是什么？

它看起来很像 PHP 的 variable variables，但是在搜索引擎、各种 StackExchange 站点和 perlvar 之后，我找不到任何迹象表明 Perl 甚至 有这样的功能，让仅这就是它的调用方式。我发现最多的是'$' 不是变量名中的有效字符，所以我知道$$LOC 不仅仅是调用一个恰好名为$LOC 的变量。

这个额外的美元符号在这里做什么？

Answer 1

这是取消引用的另一种形式。可以（老实说可能应该）写成：

$LOC->{'DESCRIPTION'};

您有时会看到与其他所有基本数据类型相同的情况：

my $str = 'a string';
my %hash = (a => 1, b => 2);
my @array = (1..4);

my $strref = \$str;
my $hashref = \%hash;
my $arrayref = \@array;

print "String value is $$strref\n";
print "Hash values are either $$hashref{a} or $hashref->{b}\n";
print "Array values are accessed by either $$arrayref[0] or $arrayref->[2]\n";

Answer 2

取消引用将标量视为“地址”，您可以在其中找到另一个变量（标量、数组或哈希）及其值。

在这种情况下，$LOC{DESCRIPTION} 被解释为另一个标量的地址，它被读入 $comment。

在 Perl 中，

my $str = 'some val';
my $ref = \$str;
my $val = ${$ref};
my $same_val = $$ref;