施瓦茨变换（排序）
时间：2010-10-09 来源：lyb137
perl中的施瓦茨变换:
my @output =
map $_->[0],
sort{$a->[1] <=> $b->[1]}
map [$_,-s $_], #一个数组引用
@array;
刚看这段的时候很郁闷，可以把
sort{$a->[1] <=> $b->[1]}
这行注掉，就能看出来效果了，
数组的引用不局限于这些。可以根据自己的需求进行扩展。
相关阅读 更多 +
