什么是哈希

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