参考：http://www.voidcn.com/article/p-fekrnkmz-yp.html

哈希表的定义：     %a = ();     定义哈希表%a,并初始化为空。     %a = {"a"=>1,"b"=>2};     定义哈希表%a,%a中有两个键(key)和键值(value)的对应关系。 哈希表的访问：     $a{"a"};     哈希表的访问类似于数组的访问，但是哈希表的索引是key。需要注意在访问哈希表中的元素时需要使用标量的引导符$。 清空哈希表     undef %a; 提取哈希表中所有的键(key)：     @all_keys = keys %a;     得到所有的键，但是键的大小是没有顺序的。     @all_keys = sort{$a{$b}<=>$a{$a}} (keys %a);     得到所有的键，并按键值从大到小排序。     @all_keys = sort{$a{$a}<=>$a{$b}} (keys %a);     按键值从小往大排序。     @all_keys = sort{$a{$a} cmp $a{$b}} (keys %a);     是按键值从小往大排序。但是是以字符串进行比较。 判断哈希表是否包含某个键     exists($a{$key}); 遍历哈希表     foreach keys(%a) {}     perl提供里一种更有效的遍历方式，使用内嵌的each()函数：     while( ($key,$value) = each (%a)) {} 向哈希表中添加元素     $a{$key} = $value;     向哈希表%a中添加一个$key=>$value的元素 删除哈希表中的元素     delete($a{$key});