perl:2次元配列の値の取り出し方

質問

お世話になります。Perlの2次元ハッシュ配列の値の取り出し方をお教えください。以下の コード中、%test　だと、値を入れるのが煩雑になるので、%test2や%test3のようなコードにしようと思うのですが、入れた値をとりだすコードが分かりません。。。ご指導ください。

my %test;
$test{'A'}{'a'} = 1;
$test{'A'}{'b'} = 2;

my %test2 = (
'P' => ['a'=>1, 'b'=>2],
'Q' => ['a'=>3, 'b'=>4]
);

my %test3 = (
'P' => ('a'=>1, 'b'=>2),
'Q' => ('a'=>3, 'b'=>4)
);

回答No.1

OK_WAVE · ベストアンサー

リファレンスにして下さい　詳しくは以下のページで
https://tutorial.perlzemi.com/blog/20100930127859.html

my %test;
$test{'A'}{'a'} = 1;
$test{'A'}{'b'} = 2;

my %test2 = (
'P' => ['a','b','c'],
'Q' => [4,5,6]
);

my %test3 = (
'P' => {'a'=>1,'b'=>2},
'Q' => {'a'=>3,'b'=>4}
);

print<<EOF;
$test{'A'}{'a'}
$test2{'P'}
$test2{'P'}[0],$test2{'P'}[1],$test2{'P'}[2]
$test3{'Q'}
$test3{'Q'}{'a'},$test3{'Q'}{'b'}
EOF

お礼

木本先生のサイトとYouTubeはいつも参考にさせていただいております。%test3は「ハッシュのハッシュ」というやつですね。ありがとうございました。