Perl正規表現（置換）

質問

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

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

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

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

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

回答No.1

Tacosan · ベストアンサー

このくらいなら, 変数を使えばいいような気がする. 例えば
$pattern = quotemeta '/^\d+$|^\d+\.[05]{1}$/';
$replacement = '/^[0]+$|^[0]+\.[0]+$/';
s/$pattern/$replacement/og;
とか.

お礼

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