Hi, the problem were the spaces in the column headers of the csv-file.
Thanks, Michael Am Mittwoch, den 15.02.2012, 21:50 +0100 schrieb Michael Markusch: > > Hi, > > > > I have tried using DBD::CSV to query a csv-file. But I have a problem with > > handling numeric data. How can I modify the code below? > > > > Thanks, > > Michael > > > > use DBI; > > use Data::Dumper; > > > > my $dbh_csv = DBI->connect ("dbi:CSV:", "", "", { > > f_dir => "csv", > > f_ext => ".csv/r", > > f_encoding => "utf8", > > > > csv_sep_char => ";", > > csv_eol => "\n", > > csv_quote_char => '"', > > csv_escape_char => '"', > > csv_class => "Text::CSV_XS", > > csv_null => 1, > > RaiseError => 1, > > }); > > > > $dbh_csv->{csv_tables}->{table_1} = { > > 'file' => 'mmm.csv', > > 'eol' => "\n", > > }; > > $dbh_csv->{csv_tables}->{table_1}->{types} = [Text::CSV_XS::PV (), > > Text::CSV_XS::NV (), Text::CSV_XS::NV ()]; > > > > my $csv_select = "Select * From table_1 Where af1 < 1"; > > > > my $sth_csv = $dbh_csv->prepare($csv_select); > > $sth_csv->execute; > > my $rowxx = $sth_csv->fetchall_arrayref(); > > print Dumper $rowxx; > > > > content table_1: > > > > date;af1;vf1 > > 2010-10-02;1,2;16,4 > > 2010-10-03;1,4;18,4 > > 2010-10-04;2,2;23,4 > > 2010-10-02;0,2;34,7 > > ... >
signature.asc
Description: This is a digitally signed message part