Perl包含hash的list排序

Perl 包含hash的list排序

插入链接与图片

参考链接: Perl 哈希、数组 排序.

4. 使用多个keys进行sort

要以多个keys来sort,将所有以or连接起来的比较操作,放在一个子函数里即可。将主要的比较操作放在前面,次要的放在后面。



# An array of references to anonymous hashes
my @employees = (
  { FIRST => 'Bill', LAST => 'Gates', SALARY => 600000, AGE => 45 },
  { FIRST => 'George', LAST => 'Tester', SALARY => 55000, AGE => 29 },
  { FIRST => 'Steve', LAST => 'Ballmer', SALARY => 600000, AGE => 41 },
  { FIRST => 'Sally', LAST => 'Developer', SALARY => 55000, AGE => 29 },
  { FIRST => 'Joe', LAST => 'Tester', SALARY => 55000, AGE => 29 },
);
sub seniority {
  $b->{SALARY} <=> $a->{SALARY}   #SALARY 数字降序
  or $b->{AGE} <=> $a->{AGE}     #AGE 数字降序
  or $a->{LAST} cmp $b->{LAST}    #LAST ASCII升序
  or $a->{FIRST} cmp $b->{FIRST}   #FIRST ASCII升序
}
my @ranked = sort seniority @employees;
  foreach my $emp (@ranked) {
  print "$emp->{SALARY}\t$emp->{AGE}\t$emp->{FIRST} $emp->{LAST}\n";
}

打印结果是:

600000  45      Bill Gates
600000  41      Steve Ballmer
55000   29      Sally Developer
55000   29      George Tester
55000   29      Joe Tester

上述code看起来很复杂,实际上很容易理解哦。@employees数组的元素是匿名hash。匿名hash实际上是个引用,可使用->操作符来访问其值,例如$employees[0]->{SALARY}可访问到第一个匿名hash里SALARY对应的值。所以上述各项比较就很清楚了,先比较SALARY的值,再比较AGE的值,再比较LAST的值,最后比较FIRST的值。注意前2项比较是降序的,后2项是升序的,不要搞混了哦。

已标记关键词 清除标记
相关推荐
©️2020 CSDN 皮肤主题: 深蓝海洋 设计师:CSDN官方博客 返回首页