perl - 如何在 Perl 中搜索和替换文件中的字符串

Question

我的输入文件的内容如下所示:

abc\**def\ghi**\abc\!!!!!
abc\**4nfiug\frgrefd\gtefe\wf4fs**\abc\df3gwddw
abc\**eg4/refw**\abc\f3

我需要替换 abc \ --------------\abc 之间的任何字符串在我的输入文件中 ABC\CBA .
我尝试过类似下面的方法来获取需要替换的字符串。但是当我需要使用搜索和替换时，我卡住了:

my $string1 = qr/abc\W+([^a]+)/;
my $string2 = map{/$string1/ => " "} @input_file; # The string that needs to be replaced
my $string3 = 'ABC\CBA'  # String in that. I want it to replace to

s/$string2/$string3/g

我怎样才能解决这个问题？

Answer 1

perl -i -pe 's/this/that/g;'  file1