Perl数组排序

本文我们学习如何用Perl对字符串或者数字数组进行排序。

Perl有个内置函数叫做sort毫无疑问的可以排序一个数组。 其最简单的形式是传递一个数组，它会返回排序后的元素组成的数组。@sorted = sort @original。

基于ASCII码排序

 
 

#!/usr/bin/perl
  
  

use strict;

  
  
 warnings;

  
  
 5.010;

  
  
?
  
  
 Data::Dumper qw(Dumper);

  
  
?
  
  
my@words =(foo bar zorg moo);

  
  
?
  
  

say Dumper @words;

  
  
?
  
  
@sorted_words sort @words?
  
  
 @sorted_words;

 
 

上边的例子将会打印

$VAR1 [

第一个输出显示了排序前的数组，第二个是排序后的。

这是最简单的情形，但是可能未必是你想要的。 比如，如果一些单词以大写字母开头怎么办？

foo bar Zorg moo);

@sorted_names里的结果将是：

'Zorg' 你会发现，以大写字母开头的单词排在了第一位。 这是因为sort默认根据ASCII码表排序，所有的大写字母都排在小写字母前边。

比较函数

Perl的sort的工作方式是这样的，它遍历原始数组的每两个元素；每次把左边的值放入变量$a，把右边的值放入变量$b。 然后调用比较函数。如果$a的内容应该在左边的话，“比较函数”会返回1；如果$b应该在左边的话，返回-1，两者一样的话，返回0。

通常你看不到比较函数，sort会根据ASCII码表对值进行比较，不过如果你想的话，你可以显式的写出来：

sort { $a cmp $b } 这段代码会跟没有使用块的sort @words达到同样的效果。

这里你可以看到，默认perl使用cmp作为比较函数。这是因为正是cmp可以做这里边我们需要的工作。 它比较两边的字符串的值，如果左边参数“小于”右边参数，就返回1；如果左边参数“大于”右边参数，就返回-1；如果相等，就返回0。

按字母顺序排列

如果你想忽略字符串的大小写来排序——即通常所谓的字母序，你可以像下一个例子这么做：

sort lc$a) cmp lc$b 这里为了比较，我们调用lc函数返回参数的小写版本。然后cmp比较这些小写版本并决定原始字符串谁先谁后。

结果是

'Zorg'