hash 的一點(diǎn)問題

minmig

1. [root@localhost ~]# perl -e '%a=(a,aa,b,bb,c,cc,d,dd,e,ee);$b=%a;print $b,"\n"'
   
2. 5/8
   
3. [root@localhost ~]# perl -e '%a=(a,aa,b,bb,c,cc,d,dd,e,ee,f,ff);$b=%a;print $b,"\n"'
   
4. 6/8
   
5. [root@localhost ~]# perl -e '%a=(a,aa,b,bb,c,cc,d,dd,e,ee,f,ff,g,gg);$b=%a;print $b,"\n"'
   
6. 6/8

復(fù)制代碼

為啥后面2個(gè)是一樣的，明顯多了一個(gè)。
問了幾個(gè)人都說詭異。

flw

502 只住兩個(gè)人，602 合租住了 8 個(gè)人，房子面積居然是一樣的。詭異。后來 602 又搬走了 2 個(gè)人，只剩下 6 個(gè)人，面積居然沒有減少！詭異！

zhlong8

明顯 'g' 和別人同房了

Perl_Er

回復(fù) 1# minmig


   

http://perldoc.perl.org/perldata.html#Scalar-values

If you evaluate a hash in scalar context, it returns falseif the hash is empty. If there are any key/value pairs, it returns true; moreprecisely, the value returned is a string consisting of the number of usedbuckets and the number of allocated buckets, separated by a slash. This ispretty much useful only to find out whether Perl's internal hashing algorithmis performing poorly on your data set. For example, you stick 10,000 things ina hash, but evaluating %HASH in scalar context reveals "1/16", which means only one out of sixteen buckets has beentouched, and presumably contains all 10,000 of your items. This isn't supposedto happen. If a tied hash is evaluated in scalar context, a fatal error willresult, since this bucket usage information is currently not available for tiedhashes.

You can preallocate space for a hash by assigning to thekeys() function. This rounds up the allocated buckets to the next power of two:

1.      keys(%users)= 1000;        # allocate 1024 buckets



Also refer to <<Professional Perl Programming>> Page 137