perl - 如何对值为数组引用的 Perl 哈希进行排序？

Question

嘿，我只是想知道是否有一个很酷的“一个类轮”可以对我的散列保存数组引用进行排序。所以我的哈希中有一堆键/值，例如:

$DataBase{$key} = \@value;

但是我想按 array[0] 对哈希进行排序元素。然后循环遍历它们。我有这个开始:

foreach my $key (sort {$DataBase{$a} cmp $DataBase{$b} } keys %DataBase)

但这显然只是按数组的指针值对我的哈希进行排序。它不一定是“一行”，但我希望有一个不涉及重建哈希的解决方案。

Answer 1

foreach my $key (sort {$DataBase{$a}->[0] cmp $DataBase{$b}->[0] } keys %DataBase)