くだすれPerl（超初心者用）3

[0945 nobodyさん 2010/08/26(木) 19:51:42 ID:???]

ソートに使う数字が先頭にある場合に限れば
　sort { int $a <=> int $b } @array
でいけるな。真っ当にやるなら
　sort { ($a =~ /^([0-9]+)/)[0] <=> ($b =~ /^([0-9]+)/)[0] } @array
とか。