TIBA, LIVIA wrote:
> Thanks Jeff,
>
> I already tried that, because I read about the default value for
> quote_char, escape_char but doesn't work.
It works for me. Please try this script which creates the data file you
described and then reads it with DBD::CSV. It works as it should for
me. If it doesn't for you, please tell me what platform you're on, and
what versions of perl, DBI, DBD::CSV, and SQL::Statement you are using
and the script output.
#!perl -w
use strict;
use DBI;
my $dbh=DBI->connect('dbi:CSV(RaiseError=>1):');
open( O, ">PM_Report") or die $!;
print O <<EOP;
"MSUID"|"ServiceType"
"ALM75SPR-001"|"WAN"
"ARP350JOH-001"|"WAN"
EOP
close O;
$dbh->{'csv_tables'}->{'PM_Report'} = {
'eol' => "\n",
'sep_char' => '|',
'file' => './PM_Report'
};
my $sth = $dbh->prepare('SELECT * FROM PM_Report');
$sth->execute;
while (my $row = $sth->fetchrow_arrayref) {
for my $col( @$row ) {
print "[$col] ";
}
print "\n";
}
__END__
--
Jeff
