Perl学习笔记(3)----遍历哈希表的一个容易疏忽的地方

　　今天做 Google的 Code Jam 上的一道题目：https://code.google.com/codejam/contest/351101/dashboard#s=p2，用Perl语言解答的。遇到一个关于hash遍历的问题，思考了好一会儿才发现问题所在，为了简化叙述，写了一个简单的遍历哈希表的Perl程序如下：

　　

　　

   #!/usr/bin/perl
   my %hash=(
           =>"a",
           =>"b",
           =>"c",
           =>"d",
           =>"e",
           =>"f",
           =>"g",
          =>"h",
          =>"i",
          =>"j",
  );
  for(keys %hash){
          print "$_ => $hash{$_}\n";
  }
  my $times;
  for(my $i=;$i<=;$i++){
          $times=;
          print "====================Loop No.$i:=====================\n";
  LOOP1:  while(my ($key,$value)=each %hash){
                  $times++;
                  print "\t'$key'=>'$value'\n";
                  if ($times>=){
                          last LOOP1;
                  }
          }
  }

该程序 2 ~ 13 行先建立了一个哈希表，然后遍历输出这个哈希表。

接下来的 18 ~ 28 行，用 while 循环和哈希表的 each 函数遍历该哈希表，用 for 循环控制遍历四次，每次遍历只遍历两个哈希表中的值。按照设想，这四次的遍历应当输出同样的内容，但输出如下：

 => f
 => c
 => g
 => i
 => b
 => h
 => a
 => d
 => j
 => e
====================Loop No.:=====================
    '6'=>'f'
    '3'=>'c'
====================Loop No.:=====================
    '7'=>'g'
    '9'=>'i'
====================Loop No.:=====================
    '2'=>'b'
    '8'=>'h'
====================Loop No.:=====================
    '1'=>'a'
    '4'=>'d'

由结果可以看出，这四次的输出并非都是一样的，这说明，用 while 循环 + each 函数遍历哈希表的时候，如果提前跳出了while循环，那么下次再接着用 each 函数遍历该哈希表的时候，会从上次已经遍历过的关键字的下一个关键字处开始遍历。

如果将 while 循环改成 for 或 foreach 循环呢？(Perl 中 for 和 foreach 其实是等价的)：

   #!/usr/bin/perl
    my %hash=(
            =>"a",
            =>"b",
            =>"c",
            =>"d",
            =>"e",
            =>"f",
            =>"g",
           =>"h",
           =>"i",
           =>"j",
   );
   for(keys %hash){
           print "$_ => $hash{$_}\n";
   }
  my $times;
  for(my $i=;$i<=;$i++){
          $times=;
          print "========== Loop No.$i ==========\n";
          foreach(my ($key,$value)=each %hash){
                  $times++;
                  print "\t'$key'=>'$value' \tand times=$times\n";
          }
  }

输出结果如下：

 => f
 => c
 => g
 => i
 => b
 => h
 => a
 => d
 => j
 => e
========== Loop No. ==========
    '6'=>'f'     and times=
    '6'=>'f'     and times=
========== Loop No. ==========
    '3'=>'c'     and times=
    '3'=>'c'     and times=
========== Loop No. ==========
    '7'=>'g'     and times=
    '7'=>'g'     and times=
========== Loop No. ==========
    '9'=>'i'     and times=
    '9'=>'i'     and times=

每次 foreach 循环会遍历两次，而且并没有改变循环的关键字，有点奇怪啊...