Tie :: IxHash在Hash of Hashes中排序关联数组？
如何保留添加哈希元素的顺序
对于第二个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);
$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
};
没有找到相关结果
已邀请:
4 个回复
厢界山攀
玩翁文醚碱
辽躺
use strict; use warnings; use Tie::IxHash; my $hash={}; my $t = tie(%$hash, 'Tie::IxHash', 'a' => 1, 'b' => 2); %$hash = (first => 1, second => 2, third => 3); $hash->{fourth} = 4; print join(', ',keys %$hash),"n"; my %new_hash=('test'=>$hash); $new_hash{'test'}{fifth} = 5; print join(', ',keys %{$new_hash{'test'}}),"n"; $new_hash{'test'}{fifth}++; print join(', ',values %{$new_hash{'test'}}),"n";舶啥戚
foreach my $sortline (sort {$a<=>$b} keys %{$hash->{"first_field"}}){ my $name; # Soultion to touch a Key with keys within it: #--------------------------------------------- foreach my $subkey (keys %{$hash->{"first_field"}->{$sortline}}) {$name = $subkey;} #--------------------------------------------- }