施瓦茨变换（排序）

perl中的施瓦茨变换:

my @output =

map $_->[0],

sort{$a->[1] <=> $b->[1]}

map [$_,-s $_],     #一个数组引用

@array;               

刚看这段的时候很郁闷，可以把

sort{$a->[1] <=> $b->[1]}

这行注掉，就能看出来效果了，

数组的引用不局限于这些。可以根据自己的需求进行扩展。