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>