二次元ハッシュを作成する - Perl

「Perl大技林」一覧に戻る

$a{'a'}->{'A1'} = 1 のような形のハッシュを作成、表示する。

サンプル

;#
;#二次元ハッシュ作成
;#

#-------------------------------------#
#            ハッシュ作成             #
#-------------------------------------#
# $a{'a'}->{'A1'} = 1 のような形になる
%a = (
    'a' => { 'A1'=>1, 'A2'=>2, 'A3'=>3 }, 
    'b' => { 'B1'=>1, 'B2'=>2, 'B3'=>3 }
);


#-------------------------------------#
#              表  示                 #
#-------------------------------------#
#-- 1次元のみ取出す --#
foreach my $key ( keys %a ){
    print "$key, $a{$key}\n";
}
print "\n";

#-- 全ての値を表示する --#
foreach my $key1 ( keys %a ){
    foreach my $key2 ( keys %{$a{$key1}} ){
        print "$key1, $key2, ". $a{$key1}->{$key2} ."\n";
    }
}

実行結果

a, HASH(0x274fe0)
b, HASH(0x2750e8)

a, A3, 3
a, A1, 1
a, A2, 2
b, B3, 3
b, B1, 1
b, B2, 2

「Perl大技林」一覧に戻る

Perlクックブック〈VOLUME1〉

Effective Perl 第2版: 上級Perlプログラマへと成長できる120の階段