一) sort函数的用法
软件列表
sort块列表
Sort Subname列表
sort的使用方法有上述三种形式。 对LIST进行排序，并返回已排序的列表。 如果忽略了SUBNAME或BLOCK，则sort按标准字符串的比较顺序进行。 例如，按ASCII顺序。 如果指定了SUBNAME，则这实际上是一个子函数的名称，它比较两个列表元素，并返回较小、相等或大于0的整数，具体取决于元素按什么顺序sort (升序、恒等或降序)。 也可以提供BLOCK作为匿名子函数，而不是SUBNAME。 效果是一样的。
比较的两个元素临时分配给变量$a和$b。 请不要修改$a或$b，因为它们是通过引用传递的。 使用子函数时，不能是递归函数。
2 )使用方法示例
1 .按数字顺序排序
@array=(8、2、32、1、4、16 )；
打印连接('，sort ) $a=$b ) @array )，'n '；
打印结果如下。
1 2 4 8 16 32
和那个一样：
sub numerically { $a=$b }；
打印连接('，sort numerically @array )、'n '；
这个很容易理解哦。 只是按照自然数的顺序sort，不详细说明。
2.1按照ascii顺序(不是词典顺序)进行sort
@ languages=qw (前向lispcperlpythonjava )；
print join (，sort @languages )、(n )；
打印结果：
Perl c c fortran java lisp python
这与以下内容相同
打印连接('，sort ) $aCMP$b ) @Languages )，'n '；
即使按照ASCII的顺序排序，也不会说什么的。
请注意，按ASCII顺序sort数字可能会导致与您预期的结果不同的结果：
打印连接('，sort 1 . 11 )，'n '；
1 10 11 2 3 4 5 6 7 8 9
2.2词典顺序sort
用户本地；
@ array=qw (asciiascapat _ largeatlargeaarp )；
@ sorted=sort { $ da=LC $ a }=~s/[/w _ ]/g；
($db=lc $b )=至=~ s/[/W_] //g；
$da cmp $db；
} @array；
print '@sortedn '；
打印结果如下。
aarparpascapasciiatlargeat _ large
使用位置是可选的。 如果原始数据包含国际字符，将提高代码兼容性。 use locale影响了cmp、lt、le、ge、gt和其他几个函数的操作属性。 有关详细信息，请参阅perllocale中的man page。
请注意，atlarge和at_large的顺序在输出时反转。 但是，sort的顺序相同。 sort的中间子函数删除at_large的中间下划线。 这可能是因为示例在perl 5.005_02上运行。 在perl 5.6版之前，sort函数不保护具有相同values的keys的优先级。 perl 5.6或更高版本保护此顺序。
请注意。 无论是map、grep还是sort，都必须保护并不更改此临时变量$ _ (在sort中为$a和$b )的值
此代码在对$a或$b执行替换操作s/[/W_] //g之前，将它们重新赋值给$da和$db。 这样，替换操作不会修改原始元素哦。
3 .因为降序sort降序sort更简单，所以交换cmp或=前后的操作数的位置即可。
sort { $b=$a } @array；
或者，更改中间块或子函数返回值的标记。
sort{--$a=$b}@array；
或者，使用reverse函数。 这有点低效，但可能很容易阅读。
reverse sort { $a=$b } @array；
4 .要使用多个keys进行sort，必须使用多个keys进行sort。 请将使用or连接的所有比较操作放入一个子函数中。 主要比较操作放在前面，次要的放在后面。
# anarrayofreferencestoanonymoushashes
@employees=(
{ FIRST='Bill '，
LAST => 'Gates',SALARY => 600000, AGE => 45 },
{ FIRST => 'mndhm', LAST => 'Tester'
SALARY => 55000, AGE => 29 },
{ FIRST => 'Steve', LAST => 'Ballmer',
SALARY => 600000, AGE => 41 }
{ FIRST => 'Sally', LAST => 'Developer',
SALARY => 55000, AGE => 29 },
{ FIRST => 'mldxwz', LAST => 'Tester',
SALARY => 55000, AGE => 29 },
);
sub seniority {
$b->{SALARY} <=> $a->{SALARY}
or $b->{AGE} <=> $a->{AGE}
or $a->{LAST} cmp $b->{LAST}
or $a->{FIRST} cmp $b->{FIRST}
}
@ranked = sort seniority @employees;
foreach $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 mndhm Tester
55000 29 mldxwz Tester
上述code看起来很复杂，实际上很容易理解哦。@employees数组的元素是匿名hash。匿名hash实际上是个引用，可使用->操作符来访问其值，例如$employees[0]->{SALARY}可访问到第一个匿名hash里SALARY对应的值。所以上述各项比较就很清楚了，先比较SALARY的值，再比较AGE的值，再比较LAST的值，最后比较FIRST的值。注意前2项比较是降序的，后2项是升序的，不要搞混了哦。
5. sort出新数组
@x = qw(matt elroy 美丽的面包 sally);
@rank[sort { $x[$a] cmp $x[$b] } 0 .. $#x] = 0 .. $#x;
print "@rankn";
打印结果是：
2 0 1 3
这里是否有点糊涂呀？仔细看就清楚了。0 .. $#x是个列表，它的值是@x数组的下标，这里就是0 1 2 3。$x[$a] cmp $x[$b] 就是将@x里的各个元素，按ASCII顺序进行比较。所以sort的结果返回对@x的下标进行排序的列表，排序的标准就是该下标对应的@x元素的ASCII顺序。
还不明白sort返回什么？让我们先打印出@x里元素的ASCII顺序：
@x = qw(matt elroy 美丽的面包 sally);
print join ' ',sort { $a cmp $b } @x;
打印结果是：
elroy 美丽的面包 matt sally
它们在@x里对应的下标是1 2 0 3，所以上述sort返回的结果就是1 2 0 3这个列表了。@rank[1 2 0 3] = 0 .. $#x 只是个简单的数组赋值操作
所以@rank的结果就是(2 0 1 3)了。
6. 按keys对hash进行sort
%hash = (Donald => Knuth, Alan => Turing, John => Neumann);
@sorted = map { { ($_ => $hash{$_}) } } sort keys %hash;
foreach $hashref (@sorted) {
($key, $value) = each %$hashref;
print "$key => $valuen";
}
打印结果是：
Alan => Turing
Donald => Knuth
John => Neumann
上述code不难明白哦。sort keys %hash按%hash的keys的ASCII顺序返回一个列表，然后用map进行计算，注意map这里用了双重{{}}
里面的 {} 是个匿名hash哦，也就是说map的结果是个匿名hash列表，明白了呀？
所以@sorted数组里的元素就是各个匿名hash，通过%$hashref进行反引用，就可以访问到它们的key/value值了。
7. 按values对hash进行sort
%hash = ( Elliot => Babbage,
Charles => Babbage,
Grace => Hopper,
Herman => Hollerith
);
@sorted = map { { ($_ => $hash{$_}) } }
sort { $hash{$a} cmp $hash{$b}
or $a cmp $b
} keys %hash;
foreach $hashref (@sorted) {
($key, $value) = each %$hashref;
print "$key => $valuen";
}
打印结果是：
Charles => Babbage
Elliot => Babbage
Herman => Hollerith
Grace => Hopper
与hash keys不同，我们不能保证hash values的唯一性。假如你仅根据values来sort hash，那么可爱的飞鸟增或删其他values时，有着相同value的2个元素的sort顺序可能会改变。为了求得稳定的结果，应该对value进行主sort，对key进行从sort。
这里{ $hash{$a} cmp $hash{$b} or $a cmp $b } 就先按value再按key进行了2次sort哦，sort返回的结果是排序后的keys列表，然后这个列表再交给map进行计算，返回一个匿名hash列表。访问方法与前面的相同，偶就不详叙了。
8. 对文件里的单词进行sort，并去除重复的
perl -0777ane '$, = "n"; @uniq{@F} = (); print sort keys %uniq' file
大家试试这种用法，我也不是很明白的说
@uniq{@F} = ()使用了hash slice来创建一个hash，它的keys是文件里的唯一单词;
该用法在语意上等同于$uniq{ $F[0], $F[1], ... $F[$#F] } = ()
各选项说明如下：
-0777 - 读入整个文件，而不是单行
-a - 自动分割模式，将行分割到@F数组
-e - 从命令行读取和运行脚本
-n - 逐行遍历文件：while (<>) { ... }
$, - print函数的输出域分割符
file - 文件名
9. 高效sorting: Orcish算法和Schwartzian转换
对每个key，sort的子函数通常被调用多次。假如非常在意sort运行时间，可使用Orcish算法或Schwartzian转换，以便每个key仅被计算1次
考虑如下示例，它根据文件修改日期来sort文件列表。
# 强迫算法--对每个文件要多次访问磁盘
@sorted = sort { -M $a <=> -M $b } @filenames;
# Orcish算法--在hash里创建keys
@sorted = sort { ($modtimes{$a} ||= -M $a) <=>
($modtimes{$b} ||= -M $b)
} @filenames;
很巧妙的算法，是不是？因为文件的修改日期在脚本运行期间是基本不变的，所以-M运算一次后，把它存起来就可以了呀。
如下是Schwartzian转换的用法：
@sorted = map( { $_->[0] }
sort( { $a->[1] <=> $b->[1] }
map({ [$_, -M] } @filenames)
)
);
这个code结合用了map,sort分了好几层，记住偶以前提过的方法，从后往前看。map({ [$_, -M] } @filenames)返回一个列表，列表元素是匿名数组，匿名数组的第一个值是文件名，第二个值是文件的修改日期。
sort( { $a->[1] <=> $b->[1] }...再对上述产生的匿名数组列表进行sort，它根据文件的修改日期进行sort
sort返回的结果是经过排序后的匿名数组。
最外围的map( { $_->[0] }...就简单了，它从上述sort产生的匿名数组里提取出文件名。这个文件名就是根据修改日期进行sort过的呀，并且每个文件只运行了一次-M。
这就是著名的Schwartzian转换，这种用法在国外perl用户里很流行