哈希是一种数据结构，它和数组的相似之处在于可以容难任意多的值并能按需取用，而他和数组的不同在于索引的方式，数组是以数字为索引而哈希则是以名字为索引。

哈希的键是唯一的，哈希的值可以重复。

哈希的应用场景

举例：

• 按名字找姓；
• 按主机名找IP地址或者按照IP地址找主机名；
• 按照单词统计其出现次数；
• 按用户名统计每个人使用的磁盘块数量；
• 按照驾照号码找出姓名。

访问哈希元素

如：$hash{$some_key} //注意使用的是大括号{} 不是中括号

赋值：　$family_name{'fred'}='flintstone';

　　　　$family_name{'barney'}='rubble';

访问整个哈希

%some_hash=('foo',35,'bar',12.4); // %<哈希名>=（key,value,key,value......）

可以用下面代码简单查看：

my @k=keys %some_hash;//keys后面讲解

foreach (@k)

{

　　print "$_=>$some_hash{$_}"."\n";

}

注意输出顺序可能是乱序。

@tmp_hash=%some_hash==>结果:tmp=foo 35 bar 12.4

哈希赋值

my %new_hash=%old_hash;==>会为new_hash分配内存，然后将old_hash的值赋过去。并不是简简单单引用

my %inverse_hash=reverse %any_hash;

上面这个比较适用于：按主机名找IP地址或者按照IP地址找主机名

胖箭头=>

主要目的是为了对下面这种模式的改善：%some_hash=('foo',35,'bar',12.4);

如：my %some_hash=(

　　'foo'=>35,

　　'bar'=>12.4,

　　'dnio'=>undef,

);

注意：每一行的最后都有逗号.

哈希函数

keys values

keys函数能返回哈希的键列表，values函数能返回对应的值的列表。

如：my %hash=('a'=>1,'b'=>2,'c'=>3,);

　　my @k=keys %hash;// 将会得到 a b c

　　my @v=values %hash;// 将会得到 1 2 3

如果使用: my $count=keys %hash;//将会得到3 也就是说hash有3对键

each函数

如果需要迭代整个哈希，常见的用法就是用each函数.每次返回的就是hash表的键、值对。直到所有的元素都被访问完。

如：while (($k,$v)=each %hash){

　　print "$k=>$v\n";

}

再比如：each返回键-值对的顺序是乱序的，但它与keys和values返回的顺序相同，也就是hash的自然顺序。如果需要依次处理hash，则只需要对键排序就行

foreach $key(sort keys %hash){

　　$value=$hash{$key};

　　say "$key=>$value";

}

exists函数

检查哈希表中是否存在某个键。

if (exists $hash{'foo'}){

　　say "there is a foo";

}

delete函数

从哈希中删除指定的键和相对应的值。（总是成功）

my $person="betty";

delete $hash{$person};

%ENV哈希

Perl程序既然运行在某个环境中，就需要对周围的环境有所感知。Perl访问这些环境信息的方法就是访问%ENV哈希。如：

print "PATH is $ENV{PATH}";