如何在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 need to be replaced
my $string3 = 'ABC\CBA'  #string i that i want it to replace to

s/$string2/$string3/g

任何人都可以帮忙吗？提前致谢.

Answer 1

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