假设一个hash的双重嵌套,如何输出这个hash的内容呢?
sub outmap
{
my %hash = @_;
my %submap;
foreach my $key (sort keys %hash)
{
my %subhash = %{$hash{$key}}; # 这一步很关键,有点类型转换的意思
print $temptext $key,"\n";
foreach my $key (sort keys %subhash)
{
print $temptext $key,"\n";
}
}
}