Perlについての質問箱 29箱目
at TECH
[
2ch
|
▼Menu
]
■コピペモード
□
スレを通常表示
□
オプションモード
□このｽﾚｯﾄﾞの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 ひ〜(悲鳴)
次ページ
最新レス表示
スレッドの検索
類似スレ一覧
話題のニュース
おまかせリスト
▼オプションを表示
レスジャンプ
mixiチェック！
Twitterに投稿
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch
5377日前に更新/220 KB
担当:undef