とあるエンジニアの闇歴史帳

コピペで使える便利Wiki ※現在構築中です。

ユーザ用ツール


perl:hash_make2d

差分

このページの2つのバージョン間の差分を表示します。

この比較画面にリンクする

perl:hash_make2d [2017/12/14 20:18]
perl:hash_make2d [2020/06/23 14:10] (現在)
行 1: 行 1:
 +====== 二次元ハッシュを作成する - Perl ======
 +~~socialite~~
 +<note important>この記事は2006年10月02日に書かれたものです。</note>
 +
 +''$a{'a'}->{'A1'} = 1'' のような形のハッシュを作成、表示する。
 +
 +===== サンプル =====
 +<code perl>
 +;#
 +;#二次元ハッシュ作成
 +;#
 +
 +#-------------------------------------#
 +#            ハッシュ作成             #
 +#-------------------------------------#
 +# $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";
 +    }
 +}
 +</code>
 +
 +===== 実行結果 =====
 +<code>
 +a, HASH(0x274fe0)
 +b, HASH(0x2750e8)
 +
 +a, A3, 3
 +a, A1, 1
 +a, A2, 2
 +b, B3, 3
 +b, B1, 1
 +b, B2, 2
 +</code>
 +
 +===== 関連書籍 =====
 +{{amazon>jp:4873113008}}
 +<html><p style="clear:both"></p></html>
 +
 +{{amazon>jp:4798139815}}
 +<html><p style="clear:both"></p></html>
 +
 +{{tag>CGI・Perl例文集 Perl 連想配列 ハッシュ }}
 +~~socialite~~
  

関連ページ