2012年3月28日
perl双层哈希求长度
摘要： 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 阅读全文
posted @ 2012-03-28 21:44 finallyly 阅读(1293) 评论(0) 推荐(0)