如何在Perl中对具有多个键的哈希数组进行排序？

Question

我引用了Perl中的哈希列表，如下所示：

my $students = [
    { name => "Johnson", age => 19, gpa => 2.5, major => "CS" },
    { name => "Jones", age => 18, gpa => 2.0, major => "IT" },
    { name => "Brown", age => 19, gpa => 2.2, major => "SE" }
];

我需要按name键对列表进行升序和降序排序。 我知道Perl的sort功能，但是哈希和多个键使我有些困惑。

我正在尝试这样做（摆脱了我在SO上看到的其他问题）：

foreach my $key (sort {$%students->{name}}) {
    print $students{$key} . "\n";
}

但这还不完全存在（出现语法错误）。

Answer 1

不能用$key这样，因为您在$students有一个array（ref），而不是hash（ref）。 （并且数组的每个元素都是一个哈希引用）。

当您sort将迭代一个比较元素值的列表（例如，数组的每个元素或keys %hash返回的每个键）-每个元素又分配给$a和$b并进行比较。 如果指定自定义排序，则它应基于元素的相对位置返回负，零或正。

“默认”为：

sort { $a cmp $b } @list;

其中字母数字进行比较，并且cmp返回-1 ， 0或1取决于相对排序。 （对于数字比较，我们将使用$a <=> $b ）。 我们需要迭代数组的元素（参考），然后通过提取合适的比较值来进行比较。

所以：

use strict;
use warnings;

my $students = [
    { name => "Johnson", age => 19, gpa => 2.5, major => "CS" },
    { name => "Jones", age => 18, gpa => 2.0, major => "IT" },
    { name => "Brown", age => 19, gpa => 2.2, major => "SE" }
];

foreach my $hashref ( sort { $a -> {name} cmp $b -> {name} } @$students ) {
    print $hashref -> {name},"\n";
}