TEXT CSV无法从csv print创建csv文件

Question

我正在尝试将csv-＆gt;打印输出写入文件，我想要使用的文件名是$ _，并且数据从csv-＆gt;打印命令在屏幕上打印出来。我只是无法弄清楚如何在文件中获取它。

$_ = $ARGV[0];
s/^[^=]*=//;

while (@ARGV) {
my $file = shift;
open my $IN, '<', $file or die $!;
my $html = do { local $/; <$IN> };
$te->parse($html);
}
for my $table ($te->tables) {

#print $_."\n";
open (NEWCSV, '>> '.$_);
    print NEWCSV $csv->print(*STDOUT{IO}, $_) for $table->rows;
close (NEWCSV); 

}

由于

Answer 1

只需打开一个文件进行输出，然后使用其文件句柄而不是*STDOUT{IO}：

open my $FH, '>', 'file.csv';
$csv->print($FH, $_) for $table->rows;