对hash做while each时遇到的问题

qshllxfx

对hash的遍历，常用each，如下
while( my ($key, $value) = each %hash )

{

     print "$key => $value\n";

}

但是今天遇到一个问题，遍历两遍时会出现奇怪的现象，后来查文档，发现是each的问题，使用each结合while循环时，要注意如下的情况
while( my ($key, $value) = each %hash )

{

     print '$key => $value\n';

     last if $key eq 'specialkey';

}

假设这hash中有一个key为specialkey，则遇到此key之后，就退出循环了。但是假如之后又需要循环遍历这个hash进行查找，即再次使用while each的话，会发现打印输出的结果和上一次不一样，不是从头开始，而是从上次last退出循环的地方继续打印。

perldoc -f each

其中有一句话：

There is a single iterator for each hash, shared by all each, keys, and values function calls in the program; it can be reset by reading all the elements from the hash, or by uating keys HASH or values HASH.

我的理解：即这三个函数都是共用HASH中的一个指针，对keys和values来说，每次都是必然遍历全部HASH，但是对each来说，每次只是移动指针到下一个位置。因此在一个程序中，对同一个HASH，如果在第一个while each中没有遍历完毕就用last退出的话，之后的while each将接着上次的位置继续遍历。如果想当然的以为每次while each都是从头开始，那就会出问题。

redicaps

你得到了它

flw

each 是有状态的，尽量少用它。
反正我很少用到。

wxlfh

在遍历一个很大的Hash时，each的速度快一点，看来是有代价的。

qshllxfx

原帖由 flw 于 2009-11-30 22:52 发表
each 是有状态的，尽量少用它。
反正我很少用到。

那就是用 foreach keys了？

兰花仙子

原帖由 wxlfh 于 2009-12-1 00:37 发表
在遍历一个很大的Hash时，each的速度快一点，看来是有代价的。

那是因为 for keys %hash先创造了一个list。

kk861123

今天也掉进each陷阱了 {:3_183:}
按照官方解释:可以通过将HASH中所有数据读完或通过keys %HASH、values %HASH，来重置遍历器.
慎用each...

shangtian2007

又学习了，谢谢分享。