有人在Perl邮件列表上提了个问题，要求对如下数组的内容按指定规则进行排序：
my @array = qw(c r v vr tr re c.p[1] c.p[3] c.p[2] c.p[4] c.p[7]
c.p[6] c.p[5] c.p[8] c.t[1] c.t[3] c.t[2]);I only want to sort the elements that have a numeric value inside the braces so that all the other elements have their original index preserved.
简言之，对@array数组的内容，按c.p[N], c.t[N]这里的N值进行升序排序，其他元素位置不变，要求输出形式如下：
c r v vr tr re c.p[1] c.p[2] c.p[3] c.p[4] c.p[5] c.p[6] c.p[7] c.p[8] c.t[1] c.t[2] c.t[3]
原提问者自己提到了施瓦茨转换，一种排序算法。但其他回答者认为这个不好用施瓦茨转换来做。
正好我对这种排序方法很熟悉，花了2分钟时间就写出来了：
- my @new = map { $_->[0] }
- sort { $a->[1]->[0] cmp $b->[1]->[0] or
- $a->[1]->[1] <=> $b->[1]->[1] }
- map {[$_,[ $_=~/\.(.+)\[(\d+)\]/ ]]}
- @array;
现在@new数组就包含了排序后的内容，输出的结果是提问者所需要。
这种排序法在Perl里要倒着看，从第5行看到第1行（如果用ruby实现，就正着看，因为ruby的数组是个对象，map, sort是对象方法，从左往右调用）。
第5行是原始数组，第4行的map方法针对原始数组再产生一个临时数组，第2-3行的sort方法针对这个临时数组，按指定规则进行排序，排序的结果又是一个临时数组，第1行的map从最后产生的临时数组里，提取出所需要的值，就是我们想要的结果。
施瓦茨转换是Perl黑客Randal L. Schwartz发明的，维基上有详细介绍：