perl - ファイル1の一部の文字を置換し、置換した文字の出力をPerlでファイル2に書き込みたい

Question

fileactual.out.tmpがあり、一部の文字を置き換えて、出力を file に送信したいと考えています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$_

他の問題もあるかもしれません。