Perlについての質問箱 30箱目at TECHPerlについての質問箱 30箱目 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト403:デフォルトの名無しさん 07/05/01 22:28:17 s///gが一種のループなのでこんな手もある。 my $mode; $text =~ s{($regexp)}{ my $r; if (!defined $mode) { my $key; do { print "置換する? [y]es [n]o [a]残り全て [g]キャンセル "; $key = <STDIN>; chomp($key); } while ( $key ne "y" and $key ne "n" and $key ne "a" and $key ne "g" ); if ($key eq 'y') { $r = $replace; } elsif ($key eq 'n') { $r = $1; } elsif ($key eq 'a') { $mode = 'a'; } else { $mode = 'g'; } } if ($mode eq 'a') { $r = $replace; } elsif ($mode eq 'g') { $r = $1; } $r; }gme; 404:395 07/05/01 23:34:11 >>402-403 おお、これはすごい、正規表現でループができるんですね。 >>403の方法できれいなスクリプトになりました。ありがとうございます。 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch