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

什么是哈希

哈希是一种数据结构，它和数组的相似之处在于可以容纳任意多的值并能按需取用，它和数组的不同在于索引方式，数组总是以数字来索引，哈希则以名字来索引。哈希的索引值称之为键(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','byen'); #直接对哈希表赋值 
@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 => $valuen"; 
}