in reply to Re: selectall_arrayref with headers
in thread selectall_arrayref with headers
The problem is that the select statements are somewhat complex, and I'm trying to use the same array iteration for different SELECT statements.
An example:
I need to put headers before the data, but the $selectstring may have different columns.
An example:
my $dbfile = "/tmp/storagedb.sqlite"; my $db; my $rep = (); my $selectstring = shift; # Subs $db = DBI->connect("dbi:SQLite:$dbfile","","") or die "ERROR: $!"; $rep = $db->selectall_arrayref($selectstring); if (@$rep) { foreach my $i (@$rep) { foreach my $j (@$i) { print "$j | "; } print $/; } } $db->disconnect;
I need to put headers before the data, but the $selectstring may have different columns.
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^3: selectall_arrayref with headers
by Corion (Patriarch) on May 16, 2012 at 20:31 UTC |
In Section
Seekers of Perl Wisdom