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' 

清空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); 

判断hash是否包含key

exists($h{$key}); 

Hash的长度

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

遍历一个hash

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

foreach my $key (keys %$hostStatus) {
 print "The key is $key and value is $hostStatus->{$key}.";
		}

Reference引用

Reference类似于C/C++的指针
$h_ref = \%h; # 获得一个hash的reference
%aHash = %{$h_ref};# 把hash reference当成hash用
$value = $h_ref->{akey} # 这个和%h{akey}是一样的

传递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引用(hash reference)

函数可以返回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()} # 如果就是想复制，也可以用这种方法 

from:http://lmylvmingyue.blog.163.com/blog/static/46601701201031551731661/

评论

1 楼 pythoner126com 2012-09-12  

写得不错，国内对perl热情不是很高，我最近也有翻译，请多多指导：http://www.yiibai.com/perl
相互学习，共同进步。