> Hi
Hi
> output. What am I missing?
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.
Regards,
Edward WIJAYA
SINGAPORE
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
