如何将所有值从循环写入文件，而不仅仅是最后一个值？

Question

我想将所有服务器值写入文本文件。但是我的输出文本文件只能写最后一个值。例如，$theServer 值是

as1tp.com
as2tp.com
as3tp.com
as4tp.com
as5tp.com

我只能在我的文本文件中写入最后一个值as5tp.com，而不是在输出文本文件中写入所有这些服务器值。下面是我的代码。如何将所有值写入tier1.txt 文件？

use strict;
use warnings;
my $outputfile= "tier1.txt"
my $theServer;      
foreach my $theServernameInfo (@theResult){   

    $theServer = $theServernameInfo->[0];   
    print "$theServer\n";
    open(my $fh, '>', $outputfile) or die "Could not open file '$outputfile' $!";
    print $fh "$theServer";
    close $fh;
    
}

Answer 1

以下代码应该可以工作。正如评论者所建议的，我插入了缺少的分号。我将open 和close 移到foreach 循环之外，以便在每次循环迭代时都不会覆盖文件。请记住，您是在'>' 模式下打开它的（写入，而不是附加）：

use strict;
use warnings;

my $outputfile = "tier1.txt";
open( my $fh, '>', $outputfile ) or die "Could not open file '$outputfile' $!";

foreach my $theServernameInfo ( @theResult ) {   
    my $theServer = $theServernameInfo->[0];    
    print "$theServer\n";
    print { $fh } "$theServer\n";   
}
close $fh;