■

数値のソート perl版

@sorted_list = sort { $a <=> $b } @array;

• http://flex.ee.uec.ac.jp/texi/perl/perl_54.html#SEC89
• http://www.hyuki.com/yukiwiki/wiki.cgi?Perl%A4%CEsort%B4%D8%BF%F4

これを

@sorted_list = sort { (split(/_/,$a))[3] <=> (split(/_/,$b))[3] } @array;

とすれば、_でつながった文字列の3(4)番目の数字でソートされるはずなんだが、当方では微妙にうまくいってないっぽい。