in reply to CSV column names

If you haven't enabled skip_first_row (you have not in this script) and info.csv has all of the column names defined in the first row then you should be able to use col_names.

I just threw this together. It is untested!

#!/bin/env perl
use strict;
use warnings;

use DBI;

my $dbh = DBI->connect('DBI:CSV:');
$dbh->{csv_tables}{info} = { file => 'info.csv' };

my $qu = $dbh->prepare('select * from info');
$qu->execute();

my @cols = @{$dbh->{csv_tables}{info}{col_names}}; # col_names won't b
+e defined until you've queried the file.
print "column names: @cols\n";

while( my @row = $qu->fetchrow_array) {
  print "row: @row\n";
}

[download]

Update: Corrected script.

Replies are listed 'Best First'.
Re^2: CSV column names
by Marshall (Canon) on Aug 23, 2016 at 21:45 UTC
    I tried this with one of my CSV files.

    Not sure what is going on. 

    #!/bin/env perl
use strict;
use warnings;

use DBI;

my $dbh = DBI->connect('DBI:CSV:');
$dbh->{csv_tables}{info} = { file => '2011-SSCW.csv' };

#Gives 'Not an ARRAY reference at C:\Projects_Perl\SSPH_Results\Muskra
+t.pl line 11.'
#my @cols = @{$dbh->{csv_tables}};
#print "column names: @cols\n";

my $qu = $dbh->prepare('select * from info');
$qu->execute();

## for unknown reasons, fetchrow_array returns undef values
## I hacked this in to get the CSV contents

while( my @row = grep{defined $_}$qu->fetchrow_array) 
{
  print "row: @row\n"; #I get the CSV file ok, here
}

    [download]
[reply]
[d/l]

      I've updated my script now that I have had a chance to try it.

[reply]
Re^2: CSV column names
by Anonymous Monk on Aug 27, 2016 at 10:49 UTC

    Sorry to bother you once more. When i use sql to make the table(csv.file), once again the column names are not appearing. So the script is not working. Any ideas?

[reply]

      "working", "not working" ? -- please be more explicit: what happens when you do what, exactly? What and why is unexpected?

      Post the code and the first few lines of the files (10 lines or so will do).

[reply]

        When i run the following script

        #!/bin/env perl
use strict;
use warnings;

use DBI;

my $dbh = DBI->connect('DBI:CSV:');
$dbh->{csv_tables}{info} = { file => 'info.csv' };

my $qu = $dbh->prepare('select * from info');
$qu->execute();

my @cols = @{$dbh->{csv_tables}{info}{col_names}}; # col_names won't b
+e defined until you've queried the file.
print "column names: @cols\n";

while( my @row = $qu->fetchrow_array) {
  print "row: @row\n";
}

        [download]
        It won't work if the table(info) was made using sql students
[reply]
[d/l]

In Section Seekers of Perl Wisdom