常見Perl Hash用法指導(dǎo)
本文和大家重點(diǎn)學(xué)習(xí)一下常見Perl Hash用法，主要包括Perl Hash的長度，如何遍歷Perl Hash，以及傳遞Perl Hash到函數(shù)等內(nèi)容，相信通過本文的學(xué)習(xí)你對常見Perl Hash用法一定會有初步的了解。
Perl Hash基本用法
#初始化%h為空數(shù)組%h={};#用數(shù)組初始化%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='2b';print"$h\n";#打印2b#刪除key用deletedelete$h;#從$h刪除'b'
清空Perl Hash
undef%h
得到hash的所有鍵值
#得到所有keys，順序取決于hash函數(shù)，或者說是亂序@all_keys=keys%h;#所有鍵值，是按hash的值從大往小排列的。值的比較是數(shù)字比較(比如說，10>9)@all_keys=sort{$h{$b}<=>$h{$a}}(keys%h);#所有鍵值，是按hash的值從小往大排列的。值的比較是數(shù)字比較@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的長度
想要知道一個(gè)hash存放多少數(shù)據(jù)
$hash_size=keys%h#把%h的長度放到$hash_size中printscalarkes%h,"\n"#打印%h的長度。這里用了scalar來返回?cái)?shù)組長度。
遍歷一個(gè)Perl Hash
while(my($k,$v)=each%h){print"$k--->$v\n";}
Reference引用
Reference類似于C/C++的指針
$h_ref=\%h;#獲得一個(gè)hash的reference%aHash=%{$h_ref};#把hashreference當(dāng)成hash用$value=$h_ref->{akey}#這個(gè)和%h{akey}是一樣的
傳遞Perl Hash到函數(shù)
一般都是傳遞一個(gè)reference到函數(shù)
%h=();$h{a}=1;foo(\%h)print$h,"\n";#打印出2。這個(gè)值來自于函數(shù)foo()subfoo{my($h)=@_;print$h->{a},"\n";#打印出1$h->=2;}
函數(shù)返回hash，或者h(yuǎn)ash引用(hashreference)
函數(shù)可以返回Perl Hash
subfoo{my%fh;$fh{a}=1;return%h;}my%h=foo();print"$h{a}\n";#打印出1
但是這樣等于把整個(gè)hash從%fh復(fù)制到了%h，效率比較低?？梢钥紤]返回hash的引用:
subfoo{my%fh;$fh{a}=1;return\%fh;}my$hr=foo();print"$hr->{a}\n";#打印出1my%h=%{foo()}#如果就是想復(fù)制，也可以用這種方法
不用擔(dān)心在subfoo里的%fh是局部變量，Perl會自動管理內(nèi)存。它會發(fā)現(xiàn)%fh被$hr引用，就不會清理%fh的內(nèi)存，并且$hr失效后釋放內(nèi)存
【編輯推薦】
- Eclipse平臺中Perl腳本開發(fā)
- Perl學(xué)習(xí)筆記----Perl命令行
- Perl數(shù)組和引用使用指導(dǎo)
- Perl基礎(chǔ) 解析Perl標(biāo)量和數(shù)組概念
- Perl模式匹配中的特殊字符用法指南
