perl：散列的数组和散列的散列

1 散列的数组：

初始化：
@AoH = (
{
        husband => "barney",
        wife    => "betty",
        son    => "bamm bamm",  
},
{
        husband => "george",
        wife    => "jane",
        son    => "elroy",
},
{
        husband => "homer",
        wife    => "marge",
        son    => "bart",
},
);

print scalar(@AoH)."length./n";

访问散列的值：

foreach my $outter(@AoH)
{
    print $$outter{husband}."--------/n";
    }

 

带着索引访问散列：

    for $i ( 0 .. $#AoH ) {
        print "$i is { ";
                for $role ( keys %{ $AoH[$i] } ) {
                        print "$role=$AoH[$i]{$role} ";
                }
                print "}/n";
}

 

---

 

2 散列的散列：

1 构建一个散列的散列：

%HoH = ( flintstones => { husband => "fred", pal => "barney", }, jetsons => { husband => "george", wife => "jane", "his boy" => "elroy", # 键字需要引号 }, simpsons => { husband => "homer", wife => "marge", kid => "bart", }, );

2 访问散列：

    for $family ( keys %HoH ) {
        print "$family: ";
        for $role ( keys %{ $HoH{$family} } ){
                print "$role=$HoH{$family}{$role} ";
        }
        print "/n";
}