答案。

在Perl中，有几种方法可以循环遍历哈希：通过each、通过键列表（keys）和foreach，以及通过values。语言最初就是为了支持快速访问数据而设计的，因此遍历方法在创建时就考虑到了性能和内存分配的最小化。

**问题：**使用这些技术时存在许多陷阱：在遍历过程中修改哈希、记住迭代器、元素顺序、each对哈希的副作用，以及在嵌套迭代时可能出现的意外行为。

**解决方案：**为了安全和可预见的迭代，建议使用foreach my $key (sort keys %hash)，在遍历时不要修改哈希，对于each，则在每次新循环前总是使用keys %hash来重置迭代器。

代码示例：

my %hash = (
   a => 1, b => 2, c => 3
);
foreach my $key (sort keys %hash) {
    print "$key: $hash{$key}
"; # 可预见的顺序
}

关键特点：

• 通过keys迭代返回键列表的副本，顺序不确定。
• 迭代器each记住在哈希上，同时多个循环仅可能在不同的哈希上同时进行。
• 使用空调用keys来重置each迭代器。

具有陷阱的问题。

在通过each迭代时，是否可以安全地修改哈希？

不可以，这会导致无法控制的后果：数据可能会被遗漏或多次计算。

如果对两个不同的哈希调用each，是否会共享迭代器？

不会，迭代器对每个哈希都是独立的。

是否可以对同一个哈希嵌套两个each循环？

不可以，迭代器会“失效”，结果将是不可预测的。在这种情况下，请使用keys和嵌套循环。

常见错误和反模式

• 在通过each迭代时修改哈希
• 保留未初始化的each迭代器
• 尝试通过each实现对同一个哈希的嵌套迭代

生活中的例子

负面案例

在一个多次调用的函数中使用each遍历哈希，该函数使用的是同一个哈希的不同部分。迭代器失效，一部分数据丢失。

优点：

• 当哈希很大，且需要处理部分元素时，each执行速度更快。

缺点：

• 不可预测的行为，“丢失”数据。

正面案例

使用foreach和keys进行遍历，明确保存键在单独的数组中以进行完整迭代。

优点：

• 完全控制，可以通过sort明确设置顺序，没有重置迭代器的风险。

缺点：

• 在非常大的哈希上性能较低，因为需要创建额外的键列表。