perl 求助如何去除数组中的某个元素

kxzhang · 发表于 2014-1-2 10:29:09

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？注册

x

在perl中,如何去除数组中的某个元素,如:
@tmp = qw/aaa abc bbb ccc ddd/;
我要去除abc这个元素

爱IC · 发表于 2014-2-10 17:59:39

for (@tmp)
{
next if (/abc/);
print;
}

V116 · 发表于 2014-2-11 16:36:16

回复 1# kxzhang

my @i = qw(aaa bbb ccc abc cde);
my @j = ();

foreach $_ (@i)
{
if($_ =~ "abc") {}
else {push(@j, $_);}
}

foreach $_ (@j)
{
print $_."\n";
}

formyideal · 发表于 2014-2-20 14:04:32

用hash效率比较高吧

kxzhang · 发表于 2014-2-21 17:01:20

谢谢楼上给的方案，这些我都理解，我是想问下有没有什么命令可以直接删除而不用写循环语句的。

catflying · 发表于 2014-2-22 11:36:00

本帖最后由 catflying 于 2014-2-22 11:37 编辑

你能确定要删除的数组元素的index么？
比如在你举例中，是要删除下标为1（从0开始计）数组元素，可直接用如下赋值方式得到：
@tmp = ($tmp[0], @tmp[2..$#tmp]);

如果不知道需要删除的数组的下标号，要根据内容删的话就得用循环了吧；或者用前面说的hash