PDSC #4 実用例　: 　
ハッシュのハッシュ

ハッシュのハッシュの宣言:

%HoH = ( 
       "flintstones" => {
	   "lead"    => "fred",
	   "pal"     => "barney",
       },
       "jetsons"     => {
	    "lead"   => "george", 
	    "wife"   => "jane",
	    "his boy"=> "elroy",
	}
       "simpsons"    => { 
	    "lead"   => "homer", 
	    "wife"   => "marge", 
	    "kid"    => "bart",
     );

ハッシュのハッシュの生成:

# ファイルからの読込
# flintstones: lead=fred pal=barney wife=wilma pet=dino
while ( <> ) {
    next unless s/^(.*?):\s*//;
    $who = $1;
    for $field ( split ) {
	($key, $value) = split /=/, $field;
	$HoH{$who}{$key} = $value;
    }
}

# ファイルからの読込; さらに多くの一時変数[more temps]
while ( <> ) {
    next unless s/^(.*?):\s*//;
    $who = $1;
    $rec = {};
    $HoH{$who} = $rec;
    for $field ( split ) {
	($key, $value) = split /=/, $field;
	$rec->{$key} = $value;
    }
}

# キーと値のハッシュを返す関数の呼出
for $group ( "simpsons", "jetsons", "flintstones" ) {
    $HoH{$group} = { get_family($group) };
}

# 同様だが、一時変数[temps]を使用
for $group ( "simpsons", "jetsons", "flintstones" ) {
    %members = get_family($group);
    $HoH{$group} = { %members };
}

# 既存のfamilyに新メンバーを追加
%new_folks = (
    "wife" => "wilma",
    "pet"  => "dino";
);
for $what (keys %new_folks) {
    $HoH{flintstones}{$what} = $new_folks{$what};
}

ハッシュのハッシュのアクセスと出力:

# 一つの要素
$HoH{"flintstones"}{"wife"} = "wilma";

# 別の要素
$HoH{simpsons}{lead} =~ s/(\w)/\u$1/;

# 全項目print 
foreach $family ( keys %HoH ) {
    print "$family: ";
    for $role ( keys %{ $HoH{$family} } {
	print "$role=$HoH{$family}{$role} ";
    }
    print "}\n";
}

# 何かでソートして全項目print
foreach $family ( sort keys %HoH ) {
    print "$family: ";
    for $role ( sort keys %{ $HoH{$family} } {
	print "$role=$HoH{$family}{$role} ";
    }
    print "}\n";
}

# メンバーの番号でソートし全項目てprint
foreach $family ( sort { keys %{$HoH{$b}} <=> keys %{$HoH{$b}} } keys %HoH ) {
    print "$family: ";
    for $role ( sort keys %{ $HoH{$family} } {
	print "$role=$HoH{$family}{$role} ";
    }
    print "}\n";
}

# 各役割用にソート順（ランク）を確立
$i = 0;
for ( qw(lead wife son daughter pal pet) ) { $rank{$_} = ++$i }

# では、メンバーの番号でソートして全項目print
foreach $family ( sort { keys %{$HoH{$b}} <=> keys %{$HoH{$b}} } keys %HoH ) {
    print "$family: ";
    # そしてランク順位にしたがってprint
    for $role ( sort { $rank{$a} <=> $rank{$b} keys %{ $HoH{$family} } {
	print "$role=$HoH{$family}{$role} ";
    }
    print "}\n";
}

ホームページへ戻る。