读取目录并将文件内容保存到Perl中的新文件中

Question

我想将某些文件的内容保存到一个新文件中，我执行以下操作：

use strict;
use warnings;
use HTML::TreeBuilder::XPath;
my ($dir) = @ARGV;
my @files = glob "details/*";
my $filename = 'target.txt';
for my $file (@files) {
  my $tree = HTML::TreeBuilder::XPath->new_from_file($file);
  my @opacity = $tree->findnodes_as_strings('//div[@class="opacity description"]');
  open my $fh, '>>', $filename;
  print $fh for @opacity; 
}

不幸的是，它不起作用。我不明白为什么？

Answer 1

1. 检查 open 的返回值：

   open my $fh ">>", $filename or die "Can't open $filename: $!";
   

   当"某些东西不起作用"时，这可以提供宝贵的见解。

2. 您的print语法不明确。使用类似print或say

   print FILEHANDLE LIST
   print {EXPR} LIST     # EXPR has to produce a filehandle object
   print LIST            # prints to the `select`ed filehandle, usually STDOUT
   print                 # prints $_ by default
   

   因此，您希望显式指定要打印的内容，并且可能还需要在@opacity中的每个元素之后添加一个换行符。所以要么

   print {$fh} "$_n" for @opacity;
   

   或use feature 'say'（Perl 5.10 及更高版本）：

   say {$fh} $_ for @opacity;