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);
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;
@[EMAIL PROTECTED] = @a;
