由浅入深谈Perl中的排序

南天一柱

主要内容：
1. 简单的使用sort排序
2. 对哈希按键排序
3. 对哈希按值排序
4. 对数组的数组排序
5. 使用Schwartzian Transform 排序
6. 对矩阵按多列排序



Perl中排序主要用sort函数，sort函数可以对列表按字母表顺序或者数值顺序进行排序，并返回排序好的列表，但是，请注意，sort不会改变原列表的值和顺序。sort函数进行排序用法如下：

sort   SUBNAME   LIST

sort   BLOCK      LIST

sort   LIST

下面会分别介绍sort排序的应用。



1. sort简单排序

如果只是简单地排序，直接使用上面用法的模式三即可。sort简单排序只会对列表内容按ASCII码排序。

【例】 my @arr = sort  qw(map  23  Perl  101  11  while  1  scalar  102);

   print “@arr\n”;



# output: 1  101  102  11  23  Perl  map  scalar  while



由于sort简单排序只能按alphabetical order排序，所以有时不能满足用户需求。为此，我们可以使用用法模式一和二。如用cmp和<=>操作符等。

sort { $a <=> $b} @arr;  #对数组按数值升序排列

sort {$a cmp $b} @arr;  # 对数组值按字符比较顺序升序排列



2. 对哈希按键排序

【例】

my %hash = (one => 1, two => 2, three => 3, four => 4);

#通常哈希不会按顺序输出没对键-值对，所以，要经过排序

foreach my $key (sort keys %hash){

print “$key: $hash{$key}\n”;

}

#It produces the following output:

four: 4

one: 1

three: 3

two: 2



3. 对哈希按值排序

仍然以上个hash为例：

【例】

foreach ( sort  { $hash{$a} <=> $hash{$b} }  keys %hash )

{

print  “$_:  $hash{$_}\n”;

}







4. 对数组的数组进行排序

这里主要说的是对子数组按数值或字母ASCII排序。

【例】 my @AOA = ([25,49,33,100], [145,87], [11, 85, 78]);

   foreach my $item1 ( @AOA ){

   foreach my $item2 ( sort { $b <=> $a } @{$item1} ){

print “$item2\t”;

  }

print “\n”;

}

#输出：

100 49 33 25

145 87

85 78 11

5. 使用Schwartzian Transform 排序
在讲Schwartzian Transform 排序前，咱先学习下面几个函数：
(1)  map函数：转换一个数组，即对一个数组的每个元素做block或者express里的运算，然后返回新的数组(详细介绍请查看后面章节)。
这节我们讨论对二维数组的某一列进行排序，如下面的例子：
my $str = “ three 13 3 1 91 3
one 11 5 1 45 1
two 12 7 1 33 2
four 14 1 1 26 4”;

$str = join “ “,
    map { $_->[0]. “\n” }
    sort { $a->[1] <=> $b->[1] }
    map { [$_, (split)[-1]] }
    split  /\n/, $str;
print $str, “\n”;

① split /\n/, $str;
此表达式对字符串$str进行分割，得到一个数组，含四个元素。然后该数组作为参数传递给上面的map函数。
② map { [$_, (split)[-1] ] }
这里map对上一表达式传来的数组进行转换，参数保存到默认变量$_中；split没有加参数，所以也对默认变量$_按“ ”进行分割，由于split函数返回一个匿名数组，所以(split)[-1]表示分割后数组的最后一个元素。这样map 结果也是返回一个匿名数组，且该数组的每个元素也是一个包含两个元素$_ 和(split)[-1]的数组。然后传递给sort函数做排序处理。