perl – 按字典顺序排序

前端之家收集整理的这篇文章主要介绍了perl – 按字典顺序排序前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我看到以下代码的结果,但我不明白在以下排序示例中该如何知道或知道该怎么做:

use Data::Dumper;

$animals{'man'}{'name'} = 'paul';
$animals{'man'}{'legs'} = 2;
$animals{'cheeta'}{'name'} = 'mike';
$animals{'cheeta'}{'legs'} = 3;
$animals{'zebra'}{'name'} = 'steve';
$animals{'zebra'}{'legs'} = 4;
$animals{'cat'}{'name'} = '';
$animals{'cat'}{'legs'} = 3;
$animals{'dog'}{'name'} = '';
$animals{'dog'}{'legs'} = 4;
$animals{'rat'}{'name'} = '';
$animals{'rat'}{'legs'} = 5;

@animals = sort {
      $animals{$a}{'name'} cmp $animals{$b}{'name'}
   or $animals{$a}{'legs'} <=> $animals{$b}{'legs'}
} keys %animals;

print Dumper(\@animals);

解决方法

或者是短路评估器,因此如果它是真的(它是任何非零值)它将返回左侧的值,否则将评估右侧.

因此,在这种情况下,如果动物的名字相等,(0 – 假),腿数将被计算用于分类目的.

猜你在找的Perl相关文章