Perlについての質問箱 29箱目at TECHPerlについての質問箱 29箱目 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト650: ◆TWARamEjuA 07/02/14 00:49:01 BE:3049474-2BP(6811) @dst = sort { sprintf qq|%02d|,$a cmp sprintf qq|%02d|,$b } @src; とかとか♪ 651:デフォルトの名無しさん 07/02/14 00:53:47 >>650 Sort subroutine didn't return a numeric value ってエラーがががorz 652:脱帽 07/02/14 00:59:09 ちょうてけとう @dst = sort { ($a =~ /(\d+)/)[0] <=> ($b =~ /(\d+)/)[0] } @src; 653:デフォルトの名無しさん 07/02/14 00:59:59 print join qq/, /, sort { $a <=> $b } qw/21d 1aa 11b 2cc 13e 5b/; 1aa, 2cc, 5b, 11b, 13e, 21d ちゃんとなってるけどなあ 654:デフォルトの名無しさん 07/02/14 01:08:03 >>653 いろいろ試したらできました。 splitを何回か使って要素の中の数列にまで要素を分割して比較したらうまくいきました。 俺なんかに付き合ってくれてありがとうございましたm(_ _m) 655:デフォルトの名無しさん 07/02/14 05:36:07 ひ～(悲鳴) 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch