Perlについての質問箱 ..
[
2ch
|
▼Menu
]
■コピペモード
□
スレを通常表示
□
オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
643:デフォルトの名無しさん 07/05/20 12:40:10 普通にmapでできるだろ map { $a = $_; $b = shift @b; 処理 } @a 644:デフォルトの名無しさん 07/05/20 12:43:41 どうすれば納得するのか知らんが、 とりあえずリファレンス使わないと、リストのリストとかはできんと思うが。 645:デフォルトの名無しさん 07/05/20 14:06:29 $,=q/,/;$\=qq/\n/; print @$_ for foo([1 .. 5], [6 .. 10]); sub foo { map [map shift @$_, @_], (1 .. (sort map scalar @$_, @_)[-1]) } こんな感じか。 646:デフォルトの名無しさん 07/05/20 14:09:46 sub foo { map [map shift @$_, @_], (1 .. (sort {$b <=> $a} map scalar @$_, @_)[0]) } 間違えた。 647:デフォルトの名無しさん 07/05/20 15:07:14 >>642 っ[List::MoreUtils] 648:デフォルトの名無しさん 07/05/20 15:27:33 ある文字列を一文字単位で全部分解して、配列に格納させたいのですがうまくいきません。 （空白も含みます。） $text = 'aあ かｆ漢字'; 例えば、上の$textを分解して、 @array = ('a', 'あ', ' ', 'か', 'f', '漢', '字'); のような配列を作りたいのです。 splitを使って @array = split(/[\w\s]/, $text); としたのですが、何も格納されずうまく出来ませんでした。 どのようにすれば出来るでしょうか？
次ページ
最新レス表示
スレッドの検索
類似スレ一覧
話題のニュース
おまかせリスト
▼オプションを表示
レスジャンプ
mixiチェック！
Twitterに投稿
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch
5387日前に更新/220 KB
担当:undef