使用
$hash{$key1}{$key2} = $value;
遍历(注意加粗与加下划线的语句)
foreach my $key1 (keys %hash)
{
my $hash2 = $hash{$key1};
foreach my $key2 (sort{$hash2->
{$b}<=>$hash2->
{$a}}
keys %$hash2
)
{
print $key1."/t".$key2."/t".$hash2->
{$key2}."/n";
}
}
对比单维哈希
foreach my $key (sort{$hash
{$b}<=>$hash
{$a}}
keys %hash)
{
print $key."/t".$hash
{$key}."/n";
}