2012年3月28日
摘要：
my $size=scalar keys%hash_ref;37 print STDERR "top-level hash_ref $size\n";38 foreach my $key (keys %hash_ref)39 {40 $size=scalar keys%{$hash_ref{$key}};41 print STDERR "second-level hash_ref $size\n";42 43 }44 foreach my $key (keys %hash_ref)45 {46 foreach my $subkey (keys %{$ha 阅读全文