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用delete
delete $h{b}; # 从$h删除'b'

undef %h

# 得到所有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);

exists($h{$key});

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

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

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

%h = ();
$h{a}=1;
foo(/%h)
print $h{b}, "/n"; # 打印出2。这个值来自于函数foo()
?
sub foo {
my ($h) = @_;
print $h->{a}, "/n"; # 打印出1
$h->{b} = 2;
}

sub foo {
my %fh;
$fh{a} = 1;
return %h;
}
?
my %h = foo();
print "$h{a}/n"; #打印出 1

sub foo {
my %fh;
$fh{a} = 1;
return /%fh;
}
?
my $hr = foo();
print "$hr->{a}/n"; #打印出 1
my %h = %{foo()} # 如果就是想复制，也可以用这种方法