Help for this page

Select Code to Download


  1. or download this
    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];
  2. or download this
    $language   = $row[2];   # Correct
$language   = @$row[2];  # wrong (at least in perl ver 5)