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

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

比如 @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","c");
for my $tmp (@array_tmp)
{
  if (! grep { $_ eq $tmp } @array ){
    print "success";
  }  else  {
    print "failed";
  }
}