私は2番目の引数に基づいてソートする必要があります。perl [closed] - perl

入力：

EMP_T4_SHARED_IRQ_o、198 EMP_T5_SHARED_IRQ_o、199 EMP_T6_SHARED_IRQ_o、237 oDRF_LPINT2G_v4_メイン、201

出力：

EMP_T4_SHARED_IRQ_o、198 EMP_T5_SHARED_IRQ_o、199 oDRF_LPINT2G_v4_メイン、201 EMP_T6_SHARED_IRQ_o、237

perlの2番目のフィールドに基づいてテキストファイルをソートします。

回答：

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