perl grep在条件语句中使用遇到的问题

最新推荐文章于 2022-05-21 21:49:26 发布

原创最新推荐文章于 2022-05-21 21:49:26 发布 · 1.3k 阅读

0 ·

CC 4.0 BY-SA版权

PERL 专栏收录该内容

55 篇文章

订阅专栏

本文探讨了在Perl编程语言中如何使用grep函数从列表中过滤特定元素，并介绍了正确使用eq进行精确字符串比较的方法。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

我们在处理数据时，经常会遇到，在一个列表中过滤出不符合某一条件的内容，并组成新的列表。

比如 @array = ("a", "null", "c", "d");

这时候用grep实现如下:

my @newArray = grep { $_ ne "null"} @array;

但是如果放在条件语句中就会有问题。

@array_tmp = ( "a", "b", "c");
for my $tmp (@array_tmp)
{
  if ( grep { $_ ne $tmp } @array ){
    print "success";
  }  else  {
    print "failed";
  }
}

最后过滤的结果始终都是failed。

对于这种判断，我们应该在grep 中使用 eq ， == 来判断，然后对结果取反。

@array_tmp = ( "a", "b", "c");
for my $tmp (@array_tmp)
{
  if (! grep { $_ eq $tmp } @array ){
    print "success";
  }  else  {
    print "failed";
  }
}