iphony has asked for the wisdom of the Perl Monks concerning the following question:
Hi Monks,
Is it possible for Perl::DBI (Oracle) to return the name of the column header each time I run a "select ..." query?
I ca'nt find any way to do that easily. Below are a sample of a code which I always use to run select statement.
Thanks.
$dbh = DBI->connect ( "dbi:Oracle:host=$ip;sid=$sd;port=1521", $id, $p +w, {RaiseError => 1, AutoCommit => 0} ); my $sqlexe = $dbh->prepare( $sql ); my @tempdata; my @data; $sqlexe->bind_columns ( undef, \$tempdata[0][0], \$tempdata[0] +[1] ); while ( $sqlexe->fetch() ) { push @{@data}, [ $tempdata[0][0], $tempdata[0][1] ]; }
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Perl::DBI - return column header
by pfaut (Priest) on Dec 10, 2008 at 15:51 UTC | |
by Anonymous Monk on Aug 12, 2013 at 11:43 UTC | |
Re: Perl::DBI - return column header
by Corion (Patriarch) on Dec 10, 2008 at 14:08 UTC | |
Re: Perl::DBI - return column header: Yes, fetchrow_hashref
by Narveson (Chaplain) on Dec 10, 2008 at 15:30 UTC |
Back to
Seekers of Perl Wisdom