perl：從包含引用的散列中打印出一個字符串

Question

對不起，如果這是一個錯誤的標題。

我有以下散列：

my %map = (
    'key1', 'hello', 
    'key2', \'there' 
); 
print Dumper(\%map); 

輸出：

$VAR1 = { 
    'key2' => \'there', 
    'key1' => 'hello' 
}; 

我想在'key2'打印出來的值。以下是我已經試過：

print "$map{key2}" => SCALAR(0x2398b08) 
print "$$map{key2}" => 
print "$map->{key2}" => 

我的目標：

print [some magic thing] => there 

我是新來PERL，所以我不是100％清楚還在引用的行爲，以及如何取消引用它們。我如何得到我要找的東西？

Answer 1

$map{key2}是一個標值\'there'一個參考，所以你需要取消對它的引用

你$$map{key2}和$map->{key2}雙方對待$map作爲參考哈希，但它甚至不存在，因此這是錯誤的

必須使用括號來消除歧義評估順序

${ $map{key2} } 

是你想要的。或者你可以把它寫在兩個步驟

my $val = $map{key2}; 
print $$val, "\n"; 

Answer 2

$map{key2}返回所需元素的值。該元素是對字符串的引用。 ^[1]如果您希望打印該引用引用的字符串，則需要對其進行解引用。

say ${ $map{key2} }; 

參考文獻：

• Mini-Tutorial: Dereferencing Syntax
• References quick reference
• perlref
• perlreftut
• perldsc
• perllol

---

1. 我懷疑這是故意的！這肯定表明某處有錯誤。

Answer 3

我喜歡下面的行添加到我的Perl腳本：
use strict;
這將讓你擺脫困境與變量的作用域。它確實要求你用最少的「我的」來確定你的變量的範圍。

以下將讓您直接打印與「key2」相關聯的散列值（
），而不需要先將其複製到另一個變量的中間步驟。

print ${$map{'key2'}}, "\n";