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

Question

输入：

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 中的第二个字段对文本文件进行排序。

Answer 1

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