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

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

  1 #!/usr/bin/perl
  2 my %hash=(
  3         1=>"a",
  4         2=>"b",
  5         3=>"c",
  6         4=>"d",
  7         5=>"e",
  8         6=>"f",
  9         7=>"g",
 10         8=>"h",
 11         9=>"i",
 12         0=>"j",
 13 );
 14 for(keys %hash){
 15         print "$_ => $hash{$_}\n";
 16 }
 17 my $times;
 18 for(my $i=1;$i<=4;$i++){
 19         $times=0;
 20         print "====================Loop No.$i:=====================\n";
 21 LOOP1:  while(my ($key,$value)=each %hash){
 22                 $times++;
 23                 print "\t'$key'=>'$value'\n";
 24                 if ($times>=2){
 25                         last LOOP1;
 26                 }
 27         }
 28 }

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

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

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

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

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

  1 #!/usr/bin/perl
  2  my %hash=(
  3          1=>"a",
  4          2=>"b",
  5          3=>"c",
  6          4=>"d",
  7          5=>"e",
  8          6=>"f",
  9          7=>"g",
 10          8=>"h",
 11          9=>"i",
 12          0=>"j",
 13  );
 14  for(keys %hash){
 15          print "$_ => $hash{$_}\n";
 16  }
 17 my $times;
 18 for(my $i=1;$i<=4;$i++){
 19         $times=0;
 20         print "========== Loop No.$i ==========\n";
 21         foreach(my ($key,$value)=each %hash){
 22                 $times++;
 23                 print "\t'$key'=>'$value' \tand times=$times\n";
 24         }
 25 }

输出结果如下：

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

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