答案。

在Perl中，哈希（关联数组）是一种强大的存储键值对的工具。然而，处理它们需要小心，特别是在同时遍历和更改结构时。遗漏的细节可能导致难以诊断的错误。

问题背景

关联数组自早期版本的Perl（Perl 1/2）就被引入，这使其成为首批在核心级别全面支持哈希的编程语言之一。随着时间的推移，出现了额外的功能：通过each迭代、删除（delete）、批量转换（map、grep）以及在遍历期间对大小/内容变化的处理。

问题

同时遍历哈希并更改其内容，尤其是删除元素，可能导致意外效果：跳过元素、重复经过相同的键，甚至无限循环。此外，键的遍历顺序无法保证，可能会因Perl版本而异。

解决方案

• 在使用each期间不要更改哈希，因为内部游标会被打乱。
• 为安全地删除元素——首先通过keys收集键的列表，然后通过它进行单独的循环并删除。
• 使用while (my ($k, $v) = each %h)进行常规遍历，但如果不想产生意外，最好不要在循环内与delete结合使用。

正确删除元素的示例：

my %h = (a=>1, b=>2, c=>3);
for my $k (keys %h) {
    delete $h{$k} if $h{$k} == 2;
}

错误方法的示例：

while (my ($k, $v) = each %h) {
    delete $h{$k}; # 这可能导致跳过键
}

关键特点：

• 键的遍历顺序不固定，可能会变化
• 使用each进行迭代在结构发生变化时敏感
• 对于批量删除，请使用键列表的副本进行遍历。

诱惑性的问题。

可以在while (each %h)循环中安全删除哈希中的元素吗？

不可以，这可能会导致由于内部迭代游标的重置而跳过哈希的部分。

从哈希中删除元素后，键的顺序会发生什么？

顺序没有保证，可能会变化。此外，使用相同Perl的程序之间的遍历顺序也可能不同。

可以在通过each迭代时更改哈希中元素的值吗？

可以，更改值（但不更改结构）是安全的。

示例：

while (my ($k, $v) = each %h) {
    $h{$k} = $v + 10;
}

常见错误和反模式

• 在each遍历期间直接删除元素
• 假设键的遍历顺序
• 在遍历键数组时修改键的结构

实际案例

负面案例

在一个循环中使用each删除元素：

my %h = (a=>1, b=>2, c=>3);
while (my ($k, $v) = each %h) {
    delete $h{$k} if $v == 1;
}

优点：

• 简洁
• 不会创建额外数组

缺点：

• 有元素跳过的风险
• 结果不可预测

正面案例

创建要删除的键的列表：

my %h = (a=>1, b=>2, c=>3);
for my $k (keys %h) {
    delete $h{$k} if $h{$k} == 1;
}

优点：

• 可预测
• 确保删除

缺点：

• 键列表被复制到内存中