如何写不包含某指定字串的正则表达式?

[devSteven]

比如如果整句中含有"test"就要被过滤掉

[xyzxyz1111]

对每一句，　先匹配test,如果匹配成功则删除此句，否则接受这句

[devSteven]

我只需要一个正则表达式, 不是拿来用在代码里, 谢谢

[AllCHN]

grep (s/^.*test.*$//img) @contents;
$contents =~ s/^.*test.*$//img;

[devSteven]

老兄这个是匹配包含test的吗

[wti]

[^test] in perl

[leiyuhou]

[^test] in perl ？
难道 perl 的正则表达式中语法和其它不一样？这个表示非test这四个字符的任意其它字符。

[xyzxyz1111]

#!/usr/bin/perl

open (FILE, shift) || die "Data file not specified\n";
while(<FILE>){
s/^((.*test.*)|(.*))$/$3/gmi;
print ;
}

[xpony]

换个角度考虑（供参考）
1、匹配包含 test 的字串
2、对1的结果取非
例如：
------------------------------------
my @aa=("adatesta","aasdtest","a dfeafa");
foreach (@aa) {
print if (not m/test/);
}
-----------------------------------
运行结果：
a dfeafa