perl哈希hash的用法介绍

基本用法

perl

#初始化%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

perl

undef %h；

得到hash的所有键值

perl

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

判断Perl Hash是否包含key

perl

exists($h{$key});

Perl Hash的长度

perl

$hash_size=keys%h #把%h的长度放到$hash_size中
print scalar keys %h,"n"; #打印%h的长度。这里用了scalar来返回数组长度。

遍历一个Perl Hash

perl

while(my($k,$v)=each%h){print"$k--->$v\n";}

Reference引用
Reference类似于C/C++的指针

perl

$h_ref=%h;    #获得一个hash的reference,
%aHash=%{$h_ref};   #把hash reference当成hash用
$value=$h_ref->{akey}; #这个和%h{akey}是一样的

传递Perl Hash到函数
一般都是传递一个reference到函数

perl

%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

	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失效后释放内存。

perl哈希hash的用法介绍

延伸阅读

评论

发表评论