ハッシュ要素のプログラムによるアクセス

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; 

か、キーのいずれかの部分が存在しない場合はどちらのバージョンが何かをvivifyますData::Diver

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

を使用することができます。

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 \$_,は、データを作るために必要とされて：あなたは、このようなキーを使用して値を設定したい場合は

---

::ダイバーはarraの代わりにハッシュを作るys）。

Answer 3

はい。しかし、それはあなたが何を望むか、おそらくではありません。

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

4はもともと％のハッシュの値ではありません。

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