Perl语言入门——哈希

什么是哈希：哈希是一种数据结构，类似与数组，不同之处在于哈希是用字符串而非数字来检索的
为什么用哈希：典型的哈希应用有
      按名字找姓、用主机名找IP地址、按IP地址找主机名、按单词统计出现次数、按身份证号找出姓名等
访问哈希元素：语法为$hash{$some_key}
      如$family_name{"fred"}="flintstone";
      哈希元素会因赋值而产生，访问不存在的值会得到undef
访问整个哈希：要指代整个哈希，可以用%作为前缀
对哈希赋值会带来列表赋值的上下文，列表的元素是键值对，如下
      %some_hash=("foo",35,"bar",12.4,2.5,"hello","wilma",1.72e30,"betty","bye\n");
在列表上下文中，哈希会自动变成一些简单的键值对，如下
      @any_array=%some_hash;
      上述变换称为哈希松绑，并且其顺序不一定与赋值时相同（键值一定是对应的）
哈希赋值：一个不常用但合法的操作，%new_hash=%old_hash;
      %inverse_hash= reverse %any_hash;##将导致键值互换，即原来的键变成了现在的某个值
胖箭头：在哈希赋值时可以用胖箭头取代逗号，使得键值更容易区分，如下：
      my %last_name={"fred"=>"flintstone","dino"=>undef,"barney"=>"rubble",};#最后的逗号可有可无
keys和values函数：keys函数能返回哈希的键列表，而values函数能返回值列表
      my %hash=("a"=>1,"b"=>2,"c"=>3);
      my @k= keys %hash; #@k包含a、b、c
      my @v= values %hash;#@v包含1、2、3
      在标量上下文中，这两个函数返回的是哈希中键值对的个数
each函数：罗列哈希的每个键值对，实际使用时，唯一适合使用each的地方就是while循环，如下
      while(($key,$value)=each %hash){
              print "$key=>$value\n";
      }
      注意each返回的键值对也是乱序的
exists函数：要检查哈希中是否有某个键，可以使用exists函数
      if(exists $books{"dino"}){
              print "....";
      }
delete函数：从哈希中删除指定的键及其相对应的值，如没有这样的键，直接结束
      注意这不是将undef存入哈希值
哈希值内插：可以将单一哈希元素内插到双引号引起的字符串中
      foreach $person (sort keys %books){
              if($books{$person}){
                      print "$person has $books{$person} items\n";
              }
      }
整个哈希的内插是不支持的