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”;
#打印$h{b}="2b";print“$h{b}\n”;#打印2b
#删除key用delete  delete$h{b}; #从$h删除"b"

清空PerlHash
undef%h；

得到hash的所有键值
#得到所有keys，顺序取决于hash函数，或者说是乱序@all_keys=keys%h; #所有键值，是按hash的值从大往小排列的。值的比较是数字比较(比如说，10>9), @all_keys=sort{$h{$b}=>$h{$a}}(keys%h);

判断PerlHash是否包含key
 exists($h{$key});

PerlHash的长度
想要知道一个hash存放多少数据
$hash_size=keys%h#把%h的长度放到$hash_size中printscalarkeys%h,"\n";#打印%h的长度。这里用了scalar来返回数组长度。

遍历一个PerlHash
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}是一样的

传递PerlHash到函数
一般都是传递一个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)
函数可以返回PerlHash
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";#打印出1. my%h=%{foo()}#如果就是想复制，也可以用这种方法。不用担心在subfoo里的%fh是局部变量，Perl会自动管理内存。它会发现%fh被$hr引用，就不会清理%fh的内存，并且$hr失效后释放内存。