转自:UncleTuu’s Tech Notes

使用
$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”;
}


实际中的应用:

比如一个二维Hash:

现在想把里面所有的lu_id组成一个列表,程序如下:

    分享到:

发表评论

电子邮件地址不会被公开。 必填项已用*标注