Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Re: declaring arrays dynamically

by zdog (Priest)
on Sep 14, 2004 at 17:52 UTC ( #390924=note: print w/replies, xml ) Need Help??


in reply to declaring arrays dynamically

Alternatively, if you'd like more descriptive field names, you could construct a hash of array refs as follows:

my $sth1 = $dbh->prepare($full_query); $sth1->execute(); my $fields = {}; my $hashref; while ( $hashref = $sth1->fetchrow_hashref ) { for ( keys %$hashref ) { push @{ $fields->{$_} }, $hashref->{$_}; } } $sth1->finish; # data is in $fields

(Code untested). Take a look at the fetchrow_hashref() method in the DBI docs.

Zenon Zabinski | zdog | zdog@perlmonk.org

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://390924]
help
Chatterbox?
[Lady_Aleena]: james28909, what neat trick?
[james28909]: now if i have packed a script into a PDK exe, and misplaced the source, i can print it.
[james28909]: but you have to prepare for it first by adding this to the source
[james28909]: seek DATA, 0, 0; while (<DATA>) { print; }
[Lady_Aleena]: Sounds interesting. Have you written a meditation or cool use for it?
[Lady_Aleena]: It might be something PerlMonks at large would be interested in.

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (8)
As of 2017-05-01 00:06 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I'm a fool:











    Results (543 votes). Check out past polls.