perl – 如何在迭代时删除哈希元素?

前端之家收集整理的这篇文章主要介绍了perl – 如何在迭代时删除哈希元素?前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我有相当大的哈希(大约10M的密钥),我想从中删除一些元素.

我通常不喜欢使用删除或拼接,我会复制我想要的,而不是删除我不做的.但这一次,由于哈希非常大,我想我想直接删除它.

所以我在做这样的事情:

foreach my $key (keys %hash) {
 if (should_be_deleted($key)) {
  delete($hash{$key});
 }
}

似乎可以正常工作.但是,如果我想删除一些元素,甚至在迭代之前怎么办?我将举例说明:

foreach my $key (keys %hash) {
 if (should_be_deleted($key)) {
  delete($hash{$key});
  # if $key should be deleted,so does "$key.a","kkk.$key" and some other keys
  # I already know to calculate. I would like to delete them now...
 }
}

我想到了一些可能的解决方案,例如检查一个键是否仍然存在,作为循环中的第一步,或者首先循环,并创建要删除的键列表(不实际删除它们),然后在另一个循环中实际删除.

你对此有何想法?

UPDATE

双程方式似乎有一个共识.然而,在第一次通过时,我仔细检查已经标记删除的键,这是非常低效的.这是有点递归的,因为我不仅检查了密钥,还计算了应该删除的其他密钥,尽管它们已经被原始密钥计算了.

也许我需要使用一些更动态的数据结构来迭代键,这将动态更新?

解决方法

我推荐做两次,因为它更健壮.哈希顺序是有效的随机的,所以不能保证你会在相关的之前看到“主”键.例如,如果should_be_deleted()仅检测到不需要的主键和相关的主键,则可能会最终处理不需要的数据.双程方法避免了这个问题.
my @unwanted;
foreach my $key (keys %hash) {
    if (should_be_deleted($key)) {
         push @unwanted,$key;
         # push any related keys onto @unwanted
    }
}

delete @hash{@unwanted};

foreach my $key (keys %hash) {
    # do something
}

猜你在找的Perl相关文章