我必须根据第二个参数进行排序。在perl中

时间:2013-11-06 06:38:45

标签: perl

输入:

EMP_T4_SHARED_IRQ_o,198
EMP_T5_SHARED_IRQ_o,199
EMP_T6_SHARED_IRQ_o,237
oDRF_LPINT2G_v4_main,201

输出:

EMP_T4_SHARED_IRQ_o,198
EMP_T5_SHARED_IRQ_o,199
oDRF_LPINT2G_v4_main,201
EMP_T6_SHARED_IRQ_o,237

根据perl中的第二个字段对文本文件进行排序..

1 个答案:

答案 0 :(得分:3)

perl -F',' -ane'
  push @r,[ $_, $F[1] ];
  END{ print map $_->[0], sort {$a->[1] <=> $b->[1]} @r }
' input

perl -e'
  print
    map $_->[0], 
    sort{ $a->[1] <=> $b->[1] }
    map [$_, (split /,/)[1] ], <>;
' input