施瓦茨变换(排序)

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

作者: lyb137   发布时间: 2010-10-09