关于perl的排序(map,split)

kookbook

网上有如下代码,但是看不懂,问题如下:
1.[(split)[0,4,1],$_]代码中,
   a. (split)?注:split用法见过split // @arr; split;/但是用()将它括起来是何意?
    b.[0,4,1]?注:如果只取0,4,1列,那么为什么最终显示出的是5列?
    c.map {[(split)[0,4,1],$_]}
        map{,},逗号两侧是什么关系?
   

月份       电话号码             市话      长途      总话费（元）
-----------------------------------------------------------------------
200809        74889999        3.0        6.6        188
200810        74885444        4.0        1.0        200
200810        74885555        0.8        5.5        120
200810        74889888        4.0        1.0        200

要求：1，按月份（从小到大）排序。
          2，按总花费（从大到小）排序。若总话费相等，则按号码（从小到大）排序
          首先，按月份排序。同时，按总花费（从大到小）排序，若总话费相等，则按号码（从小到大）排序

最佳答案：

print map {$_->[-1]}
    sort {$a->[0] <=> $b->[0] || $b->[1] <=> $a->[1] || $b->[2] <=> $a->[2]}
    map {[(split)[0,4,1],$_]} <DATA>;
__DATA__
200809        74889999        3.0        6.6        188
200810        74885444        4.0        1.0        200
200810        74885555        0.8        5.5        120
200810        74889888        4.0        1.0        200

ynchnluiti

c.map {[(split)[0,4,1],$_]}
        map{,},逗号两侧是什么关系?

逗号在 [ ] 内。

兰花仙子

翻一下俺的精华帖子。

kookbook

楼上的谢了，但(split)？

ynchnluiti

回复 4# kookbook

(LIST)[LIST] 对列表使用下标（脚标）取值

split 返回列表。。。

kookbook

OK,谢了！

kookbook

map {$_->[3]}  是因为需要打印输出的位置前面已经有了3个元素，在这里可以写为@b= map {$_->[－1]}，指的是从最后一个位置开始计算。

能帮忙解释一下吗？

ynchnluiti

1. print map {$_->[-1]}   # 3. 取匿名数组最后一列（即每一整行）
   
2.     sort {$a->[0] <=> $b->[0] || $b->[1] <=> $a->[1] || $b->[2] <=> $a->[2]} #2. 排序
   
3.     map {[(split)[0,4,1],$_]} <DATA>; #1. map返回一个匿名数组（0列, 4列, 1列, 整行）

复制代码

kookbook

取匿名数组最后一列=?（即每一整行）

一列怎会等于一行？

ynchnluiti

回复 9# kookbook

1. map {[(split)[0,4,1],$_]}

复制代码

里面的$_ 就是从<DATA>取出来的没有split的一行内容（就是前面说的整行），作为匿名数组的第四个成员