Perl - 一种多次运行脚本并附加输出文件的方法

Question

我想多次运行perl脚本并将输出文件附加到文件中。

假设我有一个生成输出文件sparc_sub.output的perl脚本（sparc_sub.pl）。我想多次运行它。在每次运行时，它会重新调整相同的输出文件（sparc_sub.output），但内容不同。

我知道＆＃39;＆gt;＆gt;＆＃39;是我想要附加到文件末尾的符号，所以我使用符号在循环中打开输出文件。但是，输出文件sparc_sub.output始终存储上次运行的结果。 （不附加）

感谢任何帮助。

sparc_top.pl

use strict;
use Math::BigInt;
use 5.010;
use List::Util qw(sum);

my $s;
my $done=3;
my $script="sparc_sub.pl";
my @output; 
my $filename ='sparc_sub.output';

for ($s=0; $s < $done; $s++) {
    system('perl',$script)==0 or die "failed to execute $script: \$?=$?";
    open(my $fh, '>>', $filename) or die "Could not open file '$filename' $!";
    close $fh;
}