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";
}