PERL中的哈希表操作

哈希表究其实质而言就是一种数据结构，可以随机存取，没有上限，但是不同之处则在于数组呢，是根据数组来确定所要求的数据在数组中的偏移量，而哈希则是以名字来进行检

索，或者说作为索引值的，也就是说检索用的键不是数字，而是保证唯一性的字符串，即键值，键值必须保持唯一性！！

需要指出的是，虽然哈希表的键的名称要求必须唯一，但是对于键的值，则是可以相同的。

$family_name{"fred"}="John";
 $family_name{"barney"}="rubble";
 foreach $person(qw< fred barney >)
 {
print "i have heared the name is ".$family_name{$person}."\n";
 }

这样就可以随着使用而定义，开始的时候我在想这样是不是就跟C++中的结构体类似？但是之后想了想发现，结构体必须在使用之前定义，远没有哈希这样灵活，哈希成员的访问

使用{}，不同于数组的[],

也可以动态的创建哈希元素

$family_name{"tmp"}="test";极富灵活性！！！

对于哈希表中某个元素的访问类似于数组，首先是哈希表名称，不过其索引应该使用花括号，然后数组下标被字符串代替。

$tmp=$family_name{"tmp"};

对于哈希中没有的元素会使用undef最为返回值代替

使用胖箭头的方式定义哈希列表

%last_time=(
 "fred"=>"hehe",
 "dino"=>undef,
 "barney"=>"rubble",
 "betty"=>"rubble",);#整个列表以一个额外的逗号结束
 foreach (qw<fred dino barney betty>)
 {
    
print $last_time{$_}."\n";
 }

这里要注意的是，在使用胖箭头方式定义哈希表的时候，应该使用小括号，并不像单个定义哈希元素时使用大括号的方式

keys 和values函数

my %hash=("a"=>1,"b"=>2,"c"=>3);
 my @k=keys %hash;
 #获得hash表的键名称
 foreach(0..(@k-1))
 {
print "the hash keys are".$k[$_]."\n";
 }
 #获得哈希表的值
 my @m=values %hash;
 foreach (0..(@m-1))
 {
print "the hash values are".$m[$_]."\n";
 }

exist函数

my %Hight=(
     "li"=>3,
     "zhang"=>5,
     "mi"=>5,
 );
 if(exists $Hight{"li"})#exists函数只是检查该哈希表中是否有键名是"li"，与键值无关
 {
     print $Hight{"li"};
 }

delete函数

my %Hight=(
     "li"=>3,
     "zhang"=>5,
     "mi"=>5,
 );
 if(exists $Hight{"li"})
 {
     #执行到此说明存在键名是"li"的键
     delete $Hight{"li"}；#说明已经不存在该键名是li的键
     
  
 }

哈希函数的遍历

my %Hight=(
     "li"=>3,
     "zhang"=>5,
     "mi"=>5,
 );
 foreach(@k=keys %Hight)
 {
     print $Hight{$_}."\n";
 }