perl - 我想替换文件 1 中的一些字符，并想用 Perl 将替换字符的输出写入文件 2

Question

我有文件actual.out.tmp，我想替换一些字符并将输出发送到文件actual.out。我尝试了以下代码：

open(ACTUAL, "$tmpDir/data/actual_out.tmp");
my $pattern="";
while(<ACTUAL>)
{   
 $pattern .= $_;
}   
close(ACTUAL);
$pattern=~s/@[^[]*/@/g;
$rc= systemTestSetup::execute("touch $tmpDir/data/actual_out");
open(ACTUAL1, ">$tmpDir/data/actual_out");
print ACTUAL1 ;

close(ACTUAL1);
sleep(10);

Answer 1

我相信该行print ACTUAL1;应该是print ACTUAL1 $pattern，因为那是您进行搜索和替换的地方（$_我认为仍然有原始文件的最后一行）。

可能还有其他问题。