From: Graeme McLaren <mailto:[EMAIL PROTECTED]> wrote:
: Ok everyone I got it:
:
: for my $a (@result){
:
: for my $h (keys %$a){
:
: print "$h = $a->{$h} <BR><BR><BR>";
: }
: }
Avoid using $a and $b as variables. They are used
by 'sort' and treated special by perl. Use descriptive
variables instead. I used $key because I don't know
how result is organized. ($column, $section, $row, etc.
would be better.)
for my $result ( @result ) {
for my $key ( keys %$result ) {
print "$key = $result->{$key}<BR><BR><BR>";
}
}
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
