Using DBI:CSV to get data from a CSV file 1

[nasar]

I am trying to extract data from a CSV file using the code extract below, but it returns only four rows and they are all the same. If you point to what I am doing wrong or missing something that would be appreciated.

sample code:

#!/usr/bin/perl
use strict;
use warnings;
use DBI;
my @row;

    my $dbh = DBI->connect("DBI:CSV:f_dir=.;csv_eol=\n;");
	
    my $sth = $dbh->prepare("SELECT * FROM test1.csv");
    $sth->execute();
	
    foreach (@row = $sth->fetchrow_array() ) {
	print "Row: @row\n";
    }

    $sth->finish();
    $dbh->disconnect();

The file test1.csv contains the following data:

"30360001","0","15","10"
"30360002","1","15","10"
"30360001","2","15","10"
"30360003","3","15","10"
"30360001","4","15","10"
"30360002","5","15","10"

I am running this on Windows XP platform.

Nasar

 

[parkers]

Hi,

You were nearly correct... simply changing the foreach to a while will fix the problem.

Thanks,

Steven Parker

http://www.stevenp1974.co.uk

 

[nasar]

Thanks Steven,
That's worked a treat.

I have also amended the SQL to:
("SELECT * FROM test1.csv ORDER BY col1, col2");

I have to append a header row to my data file with column headings (I used "col1", "col2", "col3", "col4").

This allows me to sort my data file on two fields.

 

[parkers]

Great, I'm glad all is now well.

Steven Parker

http://www.stevenp1974.co.uk