in reply to Re^3: DBD::CSV - missing first row?
in thread DBD::CSV - missing first row?

Yeah, the file is there & has the content I posted. I even just changed the script to attempt an open on the file, and return an error if it wasn't available:
#!c:/apache/perl/bin/perl.exe -wT BEGIN { $| = 1; open (STDERR, ">&STDOUT"); print qq~Content-type: text/html\n\n~; } use CGI qw/:standard/; use strict; use Data::Dumper; use DBI; my $foo = new CGI; print $foo->header; # Connect to the database, (the directory containing our csv file(s)) my $dbh = DBI->connect("DBI:CSV:f_dir=.;csv_eol=\n;"); my $content = ''; open (FILE,"c:/apache/htdocs/test2.csv") || die "unable to open file"; while (<FILE>) { print $_; } close(FILE); # Associate our csv file with the table name 'test2' $dbh->{'csv_tables'}->{'test2'} = { 'file' => 'c:/apache/htdocs/test2. +csv'}; # Output the name and contact field from each row my $sth = $dbh->prepare("SELECT * FROM test2 WHERE name LIKE 'G%'"); $sth->execute() or die "Can't execute the query: $sth->errstr"; while (my $row = $sth->fetchrow_hashref) { print("name = ", $row->{'Name'}, " contact = ", $row->{'Contact'} +. "\n"); } $sth->finish();

The file opens fine, it prints to the browser fine, but then is followed by the error about the missing first line etc.
*shrug*
Tackled this from a few different angles. Really wanted to use DBD::CSV vs. TEXT::CSV so that I would be able to do what I want with the data a LOT more efficiently since it's a script that I'm going to setup to run frequently on my server.
I may just end up coding it with TEXT::CSV and then recode it if I ever get DBD::CSV working :-|

Thx for the help all the same. I appreciate it!


Stenyj

Replies are listed 'Best First'.
Re^5: DBD::CSV - missing first row?
by holli (Abbot) on May 08, 2005 at 07:38 UTC
    You could update your perl, since your code works fine with 5.8


    holli, /regexed monk/