散列元素的編程訪問

Question

任何人都可以通過替換PFM塊使此打印「4」？

my %hash; 
$hash{1}{2}{3}=4; 

my @key=qw(1 2 3); 

my $key; 

for(@key){PFM} 

print $hash{$key} 

Answer 1

my %hash; 
$hash{1}{2}{3}=4; 

my @key=qw(1 2 3); 

my $data = \%hash; 
for(@key){ 
    $data = $data->{$_} 
} 

print $data 

Answer 2

my $val = \%hash; 
$val //= $val->{$_} for @key; 
say $val; 

或者你可以使用Data::Diver

use Data::Diver qw(Dive); 
say Dive(\%hash, @key); 

如果鍵的任何部分不存在，無論是版本將vivify什麼。

---

如果你想使用這樣的鍵設置值：

my $p = \\%hash; 
$p = \($$p->{$_}) for @key; 
$$p = 5; 

或

use Data::Diver qw(DiveRef); 
my $ref = DiveRef(\%hash, map \$_, @key); 
$$ref = 5; 

或

use Data::Diver qw(DiveVal); 
DiveVal(\%hash, map \$_, @key) = 5; 

（該map \$_,需要使數據::潛水員做哈希而不是陣列ys爲數字鍵）

Answer 3

是的。但是，這可能不是你想要的東西：

$key = "X"; 
$hash{X} = 4; 

4不在％哈希原來的值：

my @fours = grep $_ == 4, values %hash; 
print "[@fours]\n"; # prints '[]'