Perlコーディング初心者質問スレ Part 59at PHPPerlコーディング初心者質問スレ Part 59 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト139:nobodyさん 09/03/02 23:48:16 >>136 /sgee; のeは一個でeval()一個と同等。 $destの中身をevalを使って評価してる。 my $dest = q{"$1$2varp = 5;\n"}; $input =~ s/$src_regex/eval $dest/sge; 140:nobodyさん 09/03/03 00:09:40 同等とは聞くけど、これはだめなんだよな？ $foo = q(huh?); $foo =~ s/huh\?/die(q(huh))/e; if ($@) {print q(died)} 141:nobodyさん 09/03/03 00:10:50 そもそも () ってネスト出来たっけ？ 142:nobodyさん 09/03/03 00:53:19 >>140 期待してるのはこう？ my $foo = q(huh?); $foo =~ s/huh\?/"die(q(huh))"/ee; if ($@){ print q(died) } eval()って書いたのは、eval EXPRを示したかっただけだから突っ込まないでくれ。 eval BLOCKとは異なることを言いたかった。 143:nobodyさん 09/03/03 01:26:39 >>142 そうそう。 2個目のeからeval EXPRで外側を囲まれる感じとでも理解しておけばいいのかな？ どうもありがとう。 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch