perl – 如何一次打印成两个文件？

我无法让这行代码工作：

for my $fh (FH1,FH2,FH3) { print $fh "whatever\n" }

我在perldoc找到它但它对我不起作用.

我到目前为止的代码是：

my $archive_dir = '/some/cheesy/dir/';
my ($stat_file,$stat_file2) = ($archive_dir."file1.txt",$archive_dir."file2.txt");
my ($fh1,$fh2);

for my $fh (fh1,fh2) { print $fh "whatever\n"; }

我在(fh1,fh2)部分出现“Bareword”错误,因为我使用严格.我也注意到他们错过了一个;在这个例子中,所以我猜可能会有更多的错误.

一次打印到两个文件的正确语法是什么？

解决方法

您尚未打开文件.

my ($fh1,$fh2);
open($fh1,">",$stat_file) or die "Couldn't open $stat_file: $!";
open($fh2,$stat_file2) or die "Couldn't open $stat_file2: $!";

for my $fh ($fh1,$fh2) { print $fh "whatever\n"; }

请注意,我没有使用裸字.在过去,你会使用：

open(FH1,">$stat_file");
...
for my $fh (FH1,FH2) { print $fh "whatever\n"; }

但现代的方法是前者.