TEXT CSV can not create csv file from csv print

Question

Я пытаюсь записать файл csv-> print, помещенный в файл, имя файла, которое я хочу использовать, находится в $ _, а данные выводятся из команды csv-> print правильный на экране. Я просто не могу понять, как получить его в файле.

$_ = $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;