続きは・・・
サンプル：ハッシュのハッシュでデータ表現する
ハッシュのハッシュを静的に作成します。ハッシュのネストの方法です。
%Hash_Of_Hash = (
"キー１" => {
"キー１１" => "値１１" ,
"キー１２" => "値１２" ,
・・・ ,
}
,
"キー２" => {
"キー２１" => "値２１" ,
"キー２２" => "値２２" ,
・・・ ,
}
,
"キー３" => {
"キー３１" => "値３１" ,
"キー３２" => "値３２" ,
・・・ ,
} ・・・
・・・
);
プログラム例では、大リーガーのイチロー、松井、松坂選手の身長・体重・年齢をハッシュの名前をキーにして、ハッシュ関数を辞書引きしています。
ハッシュ内のキーと値のペアは不定の順番で取り出される。並び方が気になるようであれば、ソートをかける必要があります。
注意すべき点は、ハッシュのキーに対応する値には、ハッシュリファレンスを値に取っている点で値にアクセスする際には、矢印演算子を用いています。
プログラム例
#!/usr/bin/perl
#!/usr/bin/perl
my %Hash_Of_Hash;
%Hash_Of_Hash = (
"イチロー" => {
"身長" => "１７５ｃｍ" ,
"体重" => "７７ｋｇ" ,
"年齢" => "３３歳" ,
}
,
"松井秀喜" => {
"身長" => "１８８ｃｍ" ,
"体重" => "９５ｋｇ" ,
"年齢" => "３２歳" ,
}
,
"松坂大輔" => {
"身長" => "１８２ｃｍ" ,
"体重" => "８５ｋｇ" ,
"年齢" => "１８歳" ,
}
);
foreach my $key1 (keys(%Hash_Of_Hash)) {
print $key1;
foreach my $key2 (keys( %{$Hash_Of_Hash{$key1}} )) {
print $Hash_Of_Hash{$key1}->{$key2} , "\n";
}
print "\n";
}
実行結果
[it-engineer@home1 perl]# perl 20070523-3.pl
イチロー１７５ｃｍ
７７ｋｇ
３３歳
松井秀喜１８８ｃｍ
９５ｋｇ
３２歳
松坂大輔１８２ｃｍ
８５ｋｇ
１８歳
[it-engineer@home1 perl]#
