python - Python正規表現をPerlに変換します

Question

私は正規表現が得意ではないので、それらをある言語から別の言語に変換することは困難な作業になる可能性があります。

tre = re.compile("///--STRING TEXT ONE. Ends with the word EDIT.(?:.*)--///(?:(?:.*\n))*///--END is the first word in STRING TEXT TWO--///")
result = tre.sub(motionBlur_text, configContents)

もし皆さんが私がこれをperlに移すのを手伝ってくれるなら（私はそれがreg式に適していると聞いています）、それは本当にクールでしょう。

Answer 1

Perl の正規表現は同じです:

my $re = qr#///--STRING TEXT ONE. Ends with the word EDIT.(?:.*)--///(?:(?:.*\n))*///--END is the first word in STRING TEXT TWO--///#;

Answer 2

コンパイルはqr//演算子を介して行われます。「/」の代わりに (ほとんどすべての) 文字を使用できます。Perl のベスト プラクティスで推奨されているので、中かっこを使用します。

my $tre = qr{///--STRING TEXT ONE. Ends with the word EDIT.(?:.*)--///(?:(?:.*\n))*///--END is the first word in STRING TEXT TWO--///};

インプレースで置換を実行するには (正規表現の引用のような演算子を参照):

$motionBlur_text =~ s/$tre/$configContents/g;

文字列のコピーに対して置換を実行し、それを返すには (Perl 5.14+)

my $result = $motionBlur_text =~ s/$tre/$configContents/gr;