1001コメント340KB

Perlについての質問箱 29箱目

■ このスレッドは過去ログ倉庫に格納されています

0653デフォルトの名無しさん

2007/02/14(水) 00:59:59

print join qq/, /, sort { $a <=> $b } qw/21d 1aa 11b 2cc 13e 5b/;
1aa, 2cc, 5b, 11b, 13e, 21d

ちゃんとなってるけどなあ

■ このスレッドは過去ログ倉庫に格納されています