我有相当大的哈希(大约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
}