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;
> print "$_ => $a{$_}\n" for (keys %a);
> }
--
Paul Johnson - [EMAIL PROTECTED]
http://www.pjcj.net
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
