muszę sortować na podstawie drugiego argumentu ... w perl [closed] - perl

wkład:

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

wydajność:

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

posortuj plik tekstowy na podstawie drugiego pola w perlu ..

Odpowiedzi:

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

lub

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