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";

              }

      }

整个哈希的内插是不支持的