如何通过哈希名称对散列数组进行排序？

Question

我想用散列键对散列数组进行排序，我怎么能在Perl中做到这一点？ 结构创建这样的：

push (@{$structure[$endpoint][1]}, \%temp_hash);
%temp_hash是一个简单的散列与key->value。 现在我想作为排序依据的哈希键数组，还有在每个哈希只有一个键 - >价值......它一直在争取2小时已经和我放弃了..

Answer 1

尝试

@sorted = sort { (keys %$a)[0] cmp (keys %$b)[0] } @{$structure[$endpoint][1]}; 

根据每个散列的第一个（唯一）键排序数组的元素（它们是散列引用）。如果键是数字，则使用<=>。

测试代码：

%a = ('a' => 1); 
%b = ('zz' => 2); 
%c = ('g' => 3); 
@arr = (\%a, \%b, \%c); 

print "Unsorted\n"; 
for (@arr) 
{ 
    printf "%s\n",((keys %$_)[0]); 
} 

@sorted = sort { (keys %$a)[0] cmp (keys %$b)[0] } @arr; 

print "\nSorted\n"; 
for (@sorted) 
{ 
    printf "%s\n",((keys %$_)[0]); 
}