《Perl语言入门》之五——哈希

gznz12345

　　什么是哈希
　　哈希是一种数据结构，它和数组的相似之处在于可以容纳任意多的值并能按需取用，它和数组的不同在于索引方式，数组总是以数字来索引，哈希则以名字来索引。哈希的索引值称之为键(Key)，它是任意唯一的字符串。
　　一些典型的应用例如：按名字查找姓、按主机名查找IP、按单词统计其出现的次数、按用户名统计每个人使用的磁盘块数量……
　　访问哈希元素
　　要访问哈希元素，需要使用如下语法
$hash{$some_key}　　

　　
$family_name{ 'fred' } = 'flintstone';
　　
$family_name{ 'barney' } = 'rubble';
　　哈希有自己的名字命名空间，但是在挑选哈希名的时候，最好使得哈希名和键之间能放进去一个"for"字，比如"family_name for fred 是 flintstone"。
　　访问哈希表里不存在的值会得到undef。
　　要指代整个哈希，可以用百分号做为前缀。
%some_hash = ('foo', 35, 'bar', 12.4, 2.5, 'hello', wilma, 1.72e30, 'betty', 'bye\n'); #直接对哈希表赋值　　
@any_array = %some_hash #展开哈希，将它变成键-值对列表。
　　常用的哈希
if (exists $books{"dino"}) { # exists 函数可以用于检查哈希中是否存在某个键　　
print "Hey, there's a library card for dino!\n";
　　
}
　　

　　
my $person = "betty";
　　
delete $books{$person}; #删除指定键值，如果没有这样的键值，则直接返回，不会出现任何警告和错误信息。
　　

　　
print "PATH is $ENV{PATH}\n"; #检查运行环境的PATH变量
　　哈希赋值
　　根据现有的哈希建立一个反序的哈希：
my %inverse_hash = reverse %any_hash;　　需要注意的是，这个技巧最好是在确定原始哈希的值是唯一的情况下使用。
　　为了区分哈希表中的键-值对，Perl语言可以使用胖箭头（"=>"）代替逗号，例如
my %last_name = (　　
'fred' => 'flintstone',
　　
'dino' => undef,
　　
barney => 'rubble', #使用胖箭头的时候，键的引号可以省略
　　
betty => 'rubble', #列表结尾有一个额外的逗号，便于维护列表
　　
);
　　哈希函数
　　Keys和values函数——keys函数能返回哈希的键列表，而values函数能返回对应的值列表
my %hash = ('a' => 1, 'b' => 2, 'c'=>3);　　
my @k = key %hash; #返回 'a', 'b', 'c'
　　
my @v = values %hash; #返回 1, 2, 3
　　

　　
my $count = keys %hash; # 标量上下文中返回3，也就是键值的个数
　　each函数可以用于需要迭代处理整个哈希列表的情形
while ( ($key, $value) = each %hash ) {　　
print "$key => $value\n";
　　
}