Perl 中Hash如何使用

本篇文章為大家展示了Perl 中Hash如何使用，內容簡明扼要并且容易理解，絕對能使你眼前一亮，通過這篇文章的詳細介紹希望你能有所收獲。

Perl Hash基本用法

#初始化%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";#打印1$h{b}='2b';print"$h{b}\n";#打印2b#刪除key用deletedelete$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);#所有鍵值，是按hash的值從小往大排列的。值的比較是數字比較@all_keys=sort{$h{$a}<=>$h{$b}}(keys%h);#所有鍵值，是按hash的值從小往大排列的。值的比較是字符串比較#（比如說，'10'<'9'）@all_keys=sort{$h{$a}cmp$h{$b}}(keys%h);

判斷Perl Hash是否包含key

exists($h{$key});

Perl Hash的長度

想要知道一個hash存放多少數據

$hash_size=keys%h#把%h的長度放到$hash_size中printscalarkes%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};#把hashreference當成hash用$value=$h_ref->{akey}#這個和%h{akey}是一樣的

傳遞Perl Hash到函數

一般都是傳遞一個reference到函數

%h=();$h{a}=1;foo(\%h)print$h{b},"\n";#打印出2。這個值來自于函數foo()subfoo{my($h)=@_;print$h->{a},"\n";#打印出1$h->{b}=2;}

函數返回hash，或者hash引用(hashreference)

函數可以返回Perl Hash

subfoo{my%fh;$fh{a}=1;return%h;}my%h=foo();print"$h{a}\n";#打印出1

但是這樣等于把整個hash從%fh復制到了%h，效率比較低。可以考慮返回hash的引用:

subfoo{my%fh;$fh{a}=1;return\%fh;}my$hr=foo();print"$hr->{a}\n";#打印出1my%h=%{foo()}#如果就是想復制，也可以用這種方法

不用擔心在subfoo里的%fh是局部變量，Perl會自動管理內存。它會發現%fh被$hr引用，就不會清理%fh的內存，并且$hr失效后釋放內存

上述內容就是Perl 中Hash如何使用，你們學到知識或技能了嗎？如果還想學到更多技能或者豐富自己的知識儲備，歡迎關注億速云行業資訊頻道。