代码之家 › 专栏 › 技术社区 › A.G.Progm.Enthusiast

如何使用Perl中的拼接从数组中一次性删除随机元素?

splice perl arrays

A.G.Progm.Enthusiast · 技术社区 · 12 月前

我有一个Perl数组,如下所示:

my@arr=qw(ram sam ham dam yam fam lam cam)

我想使用拼接从上面的数组中删除sam、yam和lam。我使用以下代码来完成此操作:

# first getting the index of sam 
(my  $ind ) = grep {$arr[$_] eq 'sam'} 0 .. $#arr;
splice(@arr, $ind, 1);

我的问题是,由于数组元素的位置发生了变化,我需要再次获取yam和lam的索引,并对数组进行拼接。

有没有其他方法可以让我一次性使用拼接从数组中删除随机元素。我可以一次获得所有它们的索引,并将它们从数组中删除,但这些位置将保持我不想要的undef值。

谢谢

1 回复 | 直到 12 月前

zdim 12 月前

如果您知道要删除的元素的值( sam 等等),而不是索引,可以做到

my $re = join '|', map { q(\b).$_.q(\b) } qw(sam yam lam);

my @filtered_ary = grep { not /$re/ } @ary;

或者覆盖数组

@ary = grep { ... } @ary

无需先查找索引即可使用 splice .

或者,如 jhnc 议论

my %remove = map { $_ => 1 } qw(sam yam lam); 

@ary = grep { not $remove{$_} } @ary;

这比上面的解决方案更快,因为它只执行查找而不是regex,而它们的开销相当相似。

推荐文章

Megrez7 · C#ToArray转换合并为一行,导致数组元素更改

4 月前

bairog · 从按属性筛选的对象数组字典中创建值数组

4 月前

Anka HanÄ±m · 关于结构和动态数组地址的问题

4 月前

Swapnil Supekar · 将二维阵列转换为一维阵列,并将一维阵列粘贴到另一张图纸上

4 月前

Lorenzo Bertolaccini · 在Angular项目中通过对话框后,在控制台中显示但在HTML中不显示的数据数组

5 月前

MaSc. H. · 大小与阵列大小

5 月前

Geremia · 2D NumPy数组+1D数组?

5 月前

MARTIN · 交换第一个和最后一个单词,反转所有中间的字符

6 月前

Paul Williams · 迭代数组时输出有问题

6 月前

Oliver Morgan · PostgreSQL错误:无法累积不同维度的数组

6 月前