perl 使用sort怎么实现多字段的数字排序

rubyish

学习了

dahe_1984

回复 5# mcshell


01.map{print $_->[0]}sort{$a->[1] <=> $b->[1]}map{[$_,(split(/(\d+)/))[1]]}<DATA>; [1]是啥意思呢?


   

mcshell

回复 12# dahe_1984


    数组切片

zhlong8

回复 12# dahe_1984


    返回多个值的表达式有时你只需要部分，可以用 (EXPR)[3, 1……] 来取部分或者换顺序。 perldata Slices 一节有很多例子

inchonline

mcshell 发表于 2013-01-09 14:00

map{[$_,(split(/(\d+)/))[1]]}<DATA>这里面的(split(/(\d+)/))[1]分切后，为什么$_->[1]不是变成283)、367)等，而是只有一个数字了啊，大神再指导指导

mcshell

回复 15# inchonline
perldoc -f split
...
  If the PATTERN contains parentheses, additional list elements
               are created from each matching substring in the delimiter.

                   split(/([,-])/, "1-10,20", 3);

               produces the list value

                   (1, ’-’, 10, ’,’, 20)
加括号以后会捕获定义的分隔符。前面貌似说过了{:3_204:}


   

inchonline

回复 16# mcshell

明白了，(split(/(\d+)/))[1]要是写成(split(/(\d+)/))[1,2],那么map{print $_->[2],$/}map{[$_,(split(/(\d+)/))[1,2]]}<DATA>;就会打印一列括号“)”出来了

zhengsenlin888

回复 7# kernel69


    谢谢了，学习了。