regex - 要忽略的字符串中的 perl 正则表达式

Question

我在 $word 中有以下字符串。我正在用 google translate 将其翻译成 $translatedword，然后将其替换到文件中，如下面的代码所示:

my $word = "This is an example text (with) ";


my $translatedword =googletranslate ( $word);
open ( $in, "< " . $filename );
open ( $out, "> " . $tmpfile );
while( <$in> ) {
        $_ =~ s/$word/$translatedword/;
        print $out $_;
}
close $out;
close $in;

只要没有 ()/[]$ 等在起作用，一切顺利(翻译文本被原始文本替换)。在这种情况下，括号将导致文件中的文本不被替换。我试过这个:

my $newword = "\Q" . $word . "\E";

还有这个:

my $newword = quotemeta( $word );

但两者都没有给出解决方案..

感谢任何关于我可能做错的提示。

Answer 1

将循环改为

while( <$in> ) {
  $_ =~ s/\Q$word\E/$translatedword/;
  print $out $_;
}