我想替换文件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，因为那是您搜索和替换的地方（$_仍然包含原始文件的最后一行，我想）。

也可能存在其他问题。