Perlについての質問箱 37箱目at TECHPerlについての質問箱 37箱目 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このスレッドのURL■項目テキスト750:デフォルトの名無しさん 08/09/09 04:24:40 @{[%hash]} これの記法がまったく意味がわからん 751: ◆TWARamEjuA 08/09/09 06:59:06 BE:980633-2BP(7089) (grep 1, each %hash) かな? 752:デフォルトの名無しさん 08/09/09 07:38:24 何年ここにいて、そんな頓珍漢な解答をする? > クソコテ 実行結果すら合わねえじゃねえか 753:デフォルトの名無しさん 08/09/09 07:39:16 http://jp.youtube.com/watch?v=PIyzRW7L6eY&feature=related これの最後のやつがちょっと意味わかんないかも。 mapの lcの組み合わせたやつ。 754:デフォルトの名無しさん 08/09/09 07:44:28 $words="a title of a webpage"; $words = join ' ', map {ucfirst lc} split / /,$words; print "$words\n"; ↑これね。 755:デフォルトの名無しさん 08/09/09 07:47:38 >>754 1. スペースで split => 単語毎になる。 2. lc $_ で全部小文字($_ の表記省略) 3. 2. の結果を ucfirst で一文字目だけ大文字化。 4. スペースでくっつける 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch