perl雜湊hash的常見用法介紹

來源:互聯網
上載者:User

基本用法

#初始化%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失效後釋放記憶體。

相關文章

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.