删除匹配行 （条件是一个数组不是单独的一个字符串）

gis11rj

形如 @a = (1 2 3 4 5 6 7 8 9 10 111  2222  54 4565  4546 4545465 52338 )很长
我有一个文件$file，其中有一个字段 $name 如果包含@a之一，就删除整行，，，，
我遍历@a数组 然后if(/pattern/) s/$line//g;可是输出的时候就会重复打印，怎样让结果不重复呢

my @filterWord = qw/1 2 3 4 5 6 7 8 9 10 111  2222  54 4565  4546 4545465 52338/;
           foreach my $element (@filterWord){
                   if($name =~ /$element/){
                           last;
                   }else{print RR $newLine . "\n";}
           }
怎样才可以不重复的输出啊，跪求答案啊                 

gis11rj

回复 1# gis11rj
又建了个哈西弄出来了，自己帮顶，方法笨了点，还望能有高手指点，另寻它法

   

kk861123

最好传点数据片段上来会更直观点，这样还是对你的所求有些模糊...我能想到比较好的也就是建立一个hash方法

gis11rj

回复 4# 芙蓉女侠
女侠就是女侠啊！呵呵。。。。。了然

   

kurri

用grep不是挺好的嘛
print RR $newLine . "\n" unless grep /$name/,@filterWord;

gis11rj

kurri 发表于 2011-12-27 09:55
用grep不是挺好的嘛
print RR $newLine . "\n" unless grep /$name/,@filterWord;

我并不是要匹配$name;而是，$name中匹配到@filterWord中任何一个。

jason680

hash work fine

kurri

回复 7# gis11rj
额。。。看反了
把 grep /$name/,@filterWord 换成 grep $name =~ /$_/,@filterWord 呢？