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