> Perhaps this is what you want?
>
> sub func {
> my $h = shift;
> for $k (keys %$h)
> {
> print "$k\n";
> for $n ( keys %{ $h->{$k} } )
> {
> print "$n => $h->{$k}{$n}\n";
> }
>
> Read: perldoc perldsc
> Hope that helps.
>
Thanks. That seems to work. It was just a matter of syntax. Gets me
everytime. I did read perldoc perldsc, but I guess I need to read it again
:)
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
