Perl中对@array和%hash的排序

#! /usr/bin/perl -w
use strict;
 
# 如果在最终结果中$a 出现在$b 之前,则其排序子程序返回-1。如果$b 出现在$a 之前,则返回 1。 
# 如果$a 和$b 的顺序无关紧要,则子程序返回 0。为什么它无关紧要呢?也许你正在做一个大小写无关的排序,而这两个字 
# 符串是 fred 和 Fred 。也许你正在做一个数字排序,而这两个元素相等。
sub by_number {
 if ($a > $b) {-1} elsif ($a < $b) {1} else {0}
}

my @nums = (1, 6, 2, 7, 3, 8, 4, 9, 5);
@nums = sort by_number @nums;
print "@nums\n";

# 针对本例,我们使用太空船(spaceship)符号(<=>)。这个操作符比较两个数字,按照数字将其排序,并返回-1, 0, 1。
sub by_numerically { $a <=> $b };
@nums = sort by_numerically @nums;
print "@nums\n";

sub case_insenstive { "\L$a" cmp "\L$b"};
print sort case_insenstive ('Last ', 'First ', 'second ', 'third ');
print "\n\n";

my %score = (
 "barney" => 195, 
 "fred" => 205, 
 "dino" => 30, 
 "bam-bamm" => 195, 
);

sub by_score_and_name {
 $score{$a} <=> $score{$b}
  or
 $a cmp $b;
}
# or的优先级低，在前面太空船'<=>'比较结果后，如果返回的为0，则计算后面的比较。
my @winners = sort by_score_and_name keys %score;
print "@winners\n";

Array的排序方法sort与Javascript, Ruby基本一致。Javascript sort调用方法举例如下：

 function by_number(a, b) {
  if (a > b) {
   return 1;
  } else if (a < b) {
   return -1;
  } else {
   return 0;
  }
 }
 
 function by_number_reverse(a, b) {
  if (a > b) {
   return -1;
  } else if (a < b) {
   return 1;
  } else {
   return 0;
  }
 }
 var myArray = [2, 4, 2, 17, 50, 8];
 alert( myArray.sort() ); 
 alert( myArray.sort(by_number));
 alert( myArray.sort(by_number_reverse));