Jenda Krynicky wrote:
From: John Ackley <[EMAIL PROTECTED]>
there is more than one way to do it
is there an easier way to do this map:

my $index = 0;
while( my @a = $SQL->fetchrow_array) {
        my %a = map { $fieldnames[$index++] => $_ } @a;
        print "$_ => $a{$_}\n" for (keys %a);
}

Any reason why you are not using fetchrow_hashref()?
thanks! yes, I did not RTFM


--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>


Reply via email to