Re: map array to hash



On Mon, May 29, 2006 at 09:16:00AM -0400, John Ackley wrote:

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;

my %a;
@a{@fieldnames} = @a;

print "$_ => $a{$_}\n" for (keys %a);
}

--
Paul Johnson - paul@xxxxxxxx
http://www.pjcj.net
.