Perl正規表現（置換）

Perlを用いてテキスト中の文字列
/^\d+$|^\d+\.[05]{1}$/

を、以下の文字列に置換したい場合、
うまくやる方法はないでしょうか？

/^[0]+$|^[0]+\.[0]+$/

正規表現を使いたいですが、
１つ１つエスケープしていくのはさすがに・・・

よろしくお願いいたします。

No.1 ベストアンサー 回答者： Tacosan 回答日時： 2013/01/08 16:47

このくらいなら, 変数を使えばいいような気がする. 例えば

$pattern = quotemeta '/^\d+$|^\d+\.[05]{1}$/';
$replacement = '/^[0]+$|^[0]+\.[0]+$/';
s/$pattern/$replacement/og;
とか.

この回答へのお礼

ありがとうございます。
教えていただいた方法でできました。

お礼日時：2013/01/08 19:41