Perl哈希怎样实现输出的顺序还是按照文件里的顺序

Question

Perl哈希怎样实现输出的顺序还是按照文件里的顺序

Answer 1

哈希可能不会按照文件里的顺序存储在内存中，因为它存储的规则是怎么舒服怎么存
当执行
%hash = ("a" => 10, "b" => 50, "c" => 30);
foreach (keys %hash)
{
print $_ . " => " . $hash{$_} . "\n";
}
看到的输出结果很可能不是当初赋值时的顺序。

可以使用 sort给键值排序
foreach (sort keys %hash)
{
print $_ . " => " . $hash{$_} . "\n";
}
此时看到的结果会根据字母顺序进行排序。

还可以使用@key = sort{$hash{$a} <=> $hash{$b}}keys %hash;
这样就是根据哈希键对应的值进行排序，此时是按数字大小进行升序排序。将$a和$b的位置调换就是降序，如@key = sort{$hash{$b} <=> $hash{$a}}keys %hash;
foreach (@key)
{
print $_ . " => " . $hash{$_} . "\n";
}
结果是根据键值进行排序。

追问

谢谢解答，使用Tie::IXHash，可以按之前的顺序输出

追答

这个模块我也是学习了，谢谢。