Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

Re^4: multidimensional array's

by emgi (Initiate)
on Dec 29, 2012 at 09:20 UTC ( #1010806=note: print w/replies, xml ) Need Help??

in reply to Re^3: multidimensional array's
in thread multidimensional array's

@All: Thnx a lot for your helpful answers.

With some additional reading and fiddling around with the syntax I have figured this out now.

my @allrows =(); while ($row = $sth->fetchrow_arrayref() ) { push @allrows,[@$row]; }; my $titlesfound = @allrows; # Contains the number of results #Show that it works: $loopcount = 0; foreach (@allrows) { my $title1 = ($allrows[$loopcount][1]); print "$title1\n"; $loopcount++; };


Replies are listed 'Best First'.
Re^5: multidimensional array's
by NetWallah (Canon) on Dec 29, 2012 at 15:56 UTC
    If you do not need the @allrows array, it is wasteful to store data into it. Try this instead:
    my $loopcount = 0; while (my $row = $sth->fetchrow_arrayref() ) { my $title1 = $row->[1]; print "$title1\n"; $loopcount++; }; my $titlesfound = $loopcount;

                 "By three methods we may learn wisdom: First, by reflection, which is noblest; Second, by imitation, which is easiest; and third by experience, which is the bitterest."           -Confucius

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1010806]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (5)
As of 2018-06-23 10:37 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (125 votes). Check out past polls.