still the same errors. Fetch returns a scalar reference, not a list, and don't fetch within the fetch on the same handle
my $csv = Text::CSV_XS->new ({ binary => 1, eol => "\r\n" }); # First print the Header row $csv->print (*STDOUT, $_read_sth->{NAME}); # Then show all records # v---! while (my $row = $_read_sth->fetchall_arrayref) { $csv->print (*STDOUT, $row); }
In reply to Re^3: Formatting question??
by Tux
in thread Formatting question??
by sudip_dg77
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |