On Fri, 01 Oct 2004 08:58:44 -0700, John W. Krahn <[EMAIL PROTECTED]> wrote:
Since $HoH now contains a reference to a hash you have to dereference it
properly.
delete $HoH->{ $k } if keys %${ $HoH->{ $k } } < $limit;
return %$HoH;
I apologize for insisting John.
Tried as you suggested:
64: sub reduce_hash2 {
65: my ($HoH,$limit) = @_;
66: foreach my $k ( keys %${HoH} ) {
67: delete $HoH->{ $k } if keys %${ $HoH->{ $k } } < $limit;
68: }
69: return %$HoH;
70: }
with this command:
my %new_hoh = reduce_hash2(\%hoh,2);
Gives error:
Not a SCALAR reference at testcode.pl line 67.
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>