Perlについての質問箱 39箱目 at TECH

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
500:デフォルトの名無しさん 09/04/06 19:11:10 if(($str =~ /hoge\((.*?)\)/) && ($str =~ /foo\((.*?)\)/)){ 　 　 $str =~ /hoge\((.*?)\)/; 　 　 $hoge=$1; 　 　 $str =~ /foo\((.*?)\)/; 　 　 $foo=$1; } これをもっと綺麗に書くことってできませんか？できたら教えてください。 hogeとfooの位置が前後する事があるのでこういう書き方にしました。 ・やりたいこと 文中のhoge(あいうえお)とfoo(かきくけこ)から $hoge="あいうえお"; $foo="かきくけこ";という変数を生成したい。 501:デフォルトの名無しさん 09/04/06 20:56:00 中のブロックだけでいいのでは（１行目要らないのでは） 502:デフォルトの名無しさん 09/04/06 21:18:19 >>500 例えばこんな感じ？ @pair = $str =~ /((?:hoge\([^)]*)|(?:huga\([^)]*))/g; foreach my $pair(@pairs){ 　my($name, $value) = $split '\(', $pair; 　$name = 'hoge' ? $hoge = $value 　: $name = 'huga' ? $huga = $value 　: 1 　; }

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

5394日前に更新/164 KB
担当:undef