perl - Tie::IxHash 在哈希的哈希中排序关联数组？

Question

如何保留哈希元素的添加顺序对于第二个VAR？

(哈希值的哈希值)

例如:

use Tie::IxHash;
my %hash;
tie %hash, "Tie::IxHash";
for my $num (0 .. 5){
     $hash{"FirstVal$num"}++;
}
for my $num (0 .. 5){
     $hash{"FirstValFIXED"}{"SecondVal$num"}++;
}
 print Dumper(%hash);

转储结果时，$VAR14 没有保留插入顺序:

$VAR1 = 'FirstVal0';
$VAR2 = 1;
$VAR3 = 'FirstVal1';
$VAR4 = 1;
$VAR5 = 'FirstVal2';
$VAR6 = 1;
$VAR7 = 'FirstVal3';
$VAR8 = 1;
$VAR9 = 'FirstVal4';
$VAR10 = 1;
$VAR11 = 'FirstVal5';
$VAR12 = 1;
$VAR13 = 'FirstValFIXED';
$VAR14 = {
           'SecondVal5' => 1,
           'SecondVal4' => 1,
           'SecondVal2' => 1,
           'SecondVal1' => 1,
           'SecondVal3' => 1,
           'SecondVal0' => 1
         };

我知道我可以通过某种排序操作来欺骗该示例，但在我的实际问题中，元素没有编号或无法以某种方式排序。有没有简单的函数/操作可以实现哈希多级插入？

谢谢

尤达尔。

Answer 1

看看Tie::Autotie 。它会自动绑定(bind)由自动生存创建的新哈希值。 perldoc 页面显示了使用 Tie::IxHash 的示例。