in reply to multidimensional array's

fetchall_arrayref will return what you say you want to accomplish - a single call that returns a multi-dimensional array. You will not need the "while" loop, unless you want to iterate the array, in which case, a "for" loop is more appropriate.

Here is sample code: 

my @allrows = @{ $sth->fetchrow_arrayref() }; # Expand ref, to simplif
+y access

my $first_author        = $allrows[0][0]; 
my $second_author       = $allrows[1][0];
my $first_title         = $allrows[0][1];

[download]
Also, access to a scalar element of an array is correctly written as 
$language   = $row[2];   # Correct
$language   = @$row[2];  # wrong (at least in perl ver 5)

[download]

             "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

Replies are listed 'Best First'.
Re^2: multidimensional array's
by space_monk (Chaplain) on Dec 28, 2012 at 10:43 UTC
    A little known "feature" of fetchall_arrayref is that it will return an array of hashes if you supply it a hash, and if that hash is empty, it will return all the fields. 
    my @allrows = @{ $sth->fetchrow_arrayref({}) }; # Expand ref, to simpl
+ify access

    [download]

    YMMV, but I always find it easier to look at $row{language} than $row[2]. I'm sure there's a mild performance hit, but as long as it's not incredibly slow I'd opt for clarity.

    A Monk aims to give answers to those who have none, and to learn from those who know more.
[reply]
[d/l]
      Ah - learned something today - thank you.

      I avoid "fetchall_*", because I mostly process a row-at-a-time , and use the clearer syntax of fetchrow_hashref.

      The OP's questions were based on managing arrays, and I did not want to bring hashes and confuse that discussion.

      Thanks, space_monk.

                   "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

[reply]
        @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++;
 };

        [download]

        /emgi

[reply]
[d/l]

In Section Seekers of Perl Wisdom