输入:
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中的第二个字段对文本文件进行排序..
答案 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