基本用法

#初始化%h為空數組 %h={};
#用數組初始化%h為a=>1,b=>2  %h=('a',1,'b',2);
#意義同上，只是另一種更形象化的寫法。%h=('a'=>1,'b'=>2);
#如果key是字符串，可以省略引號。下面這行和上面那行是一樣的%h=(a=>1,b=>2);
#用{}來訪問print “$h{a}/n”;
#打印 $h{b}='2b'; print “$h{b}/n”; #打印2b
#刪除key用delete   delete$h{b};  #從$h刪除'b'

清空Perl Hash
undef %h；

得到hash的所有鍵值
#得到所有keys，順序取決于hash函數，或者說是亂序@all_keys=keys%h;  #所有鍵值，是按hash的值從大往小排列的。值的比較是數字比較(比如說，10>9) ,  @all_keys=sort{$h{$b} => $h{$a}}(keys%h);

判斷Perl Hash是否包含key
 exists($h{$key});

Perl Hash的長度
想要知道一個hash存放多少數據
$hash_size=keys%h #把%h的長度放到$hash_size中print scalar keys %h,"/n"; #打印%h的長度。這里用了scalar來返回數組長度。

遍歷一個Perl Hash
while(my($k,$v)=each%h){print"$k--->$v/n";}

Reference引用
Reference類似于C/C++的指針
$h_ref=/%h;    #獲得一個hash的reference,   %aHash=%{$h_ref};   #把hash reference當成hash用 $value=$h_ref->{akey}; #這個和%h{akey}是一樣的

傳遞Perl Hash到函數
一般都是傳遞一個reference到函數
%h=(); $h{a}=1; foo(/%h); print $h{b},"/n"; #打印出2。這個值來自于函數foo(), sub foo{my ($h)=@_; print $h->{a},"/n"; #打印出1 $h->{b}=2;}

函數返回hash，或者hash引用(hashreference)
函數可以返回Perl Hash
sub foo{my %fh; $fh{a}=1; return %h;} my %h=foo(); print "$h{a}/n"; #打印出1
但是這樣等于把整個hash從%fh復制到了%h，效率比較低。可以考慮返回hash的引用:
sub foo{my %fh; $fh{a}=1; return /%fh;} my $hr=foo(); print "$hr->{a}/n"; #打印出1.  my %h=%{foo()} #如果就是想復制，也可以用這種方法。不用擔心在sub foo里的%fh是局部變量，Perl會自動管理內存。它會發現%fh被$hr引用，就不會清理%fh的內存，并且$hr失效后釋放內存。