Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re: push result into array

by ptum (Priest)
on Feb 26, 2007 at 22:10 UTC ( #602233=note: print w/ replies, xml ) Need Help??


in reply to push result into array

Heck, why do extra work when DBI already does it for you?

@dept = @{$sth->fetchall_arrayref()};

Now @dept holds a bunch of array references, one for each of your rows. You can step through @dept, dereference the array reference, and go to town on the columns you need:

use strict; use Data::Dumper; foreach my $thisrow (@dept) { if (ref($thisrow) eq 'ARRAY) { my @columns = @{$thisrow}; foreach (@columns) { # do something } } else { print "Hey! That's not an array reference!\n"; print Dumper($thisrow); } }

Admittedly, that is a little more explicit than I would actually do in practice -- no need for @columns when you can just talk about $thisrow->[2], for example.


Comment on Re: push result into array
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://602233]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (9)
As of 2015-07-06 06:52 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (70 votes), past polls