DBD::CSV, Select Numeric data

Hi,

the problem were the spaces in the column headers of the csv-file.

Thanks,
Michael

> 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
> ...