On Fri, 01 Oct 2004 07:41:43 -0700, John W. Krahn <[EMAIL PROTECTED]> wrote:
Thanks,
No need for $count or the second for loop:
John, your one-liner certainly makes my sub looks better.
Either put the scalar first in the list or pass a reference to the original hash.
Now, I also tried with pass by reference
my ($HoH,$limit) = @_;
foreach my $k ( keys %$HoH ) { # This two don't work
delete $HoH{ $k } if keys %${ $HoH{ $k } } < $limit;# What's wrong with my deref?
}
return %HoH;
What's wrong with my deref?
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>