Perl Hash Usage (Reposted)

色胃康胶囊

　　perl中没有bool类型
　　perl中没有bool类型，所有的判断都是通过数字类型和字符串类型来进行的。
　　哪些类型为false
　　标量只有三种，数字0，空字符串"", 字符串'0'（"0"）。
　　矢量有空数组，空哈希。
　　判断数组或哈希为空
　　和标量一样，直接将数组或哈希放到if语句中即可

my @list = () ;if(@list){    print "Not empty!\n" ;}my %hash = () ;if(%hash){    print "Not empty!\n" ;}
 
　　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失效后释放内存