Perl 正则表达式 匹配不包含特定字符串的

[stushl]

比如：
匹配不包含abc的字符串，只用一个模式串，不要带perl的if什么的判断，能做到吗

[ace_fei]

(?<!abc)

[stushl]

[Quote=引用 1 楼 ace_fei 的回复:]

(?<!abc)
[/Quote]
试了一下不行啊，是Perl中的语法吗

[foolbirdflyfirst]

/((?!abc).)*/ 呢

[wxlfh]

if ($str !~ /abc/) {
    #匹配了不包含的
}else {
    #匹配了包含的
}

楼主直接要一个匹配不包含 abc 字符串的需求，个人认为是无意义的。你判断一个字符串之后，肯定要根据结果执行相应的操作，否则在逻辑上是说不通的。

[I_NBFA]

不用if你怎么判断匹配成功了？用and吧。。。

[ace_fei]

[Quote=引用 2 楼 stushl 的回复:]

引用 1 楼 ace_fei 的回复:

(?<!abc)

试了一下不行啊，是Perl中的语法吗
[/Quote]
不好意思，那个逆向环视用的不对。
试试/^(?!.*abc)/

[imeuyniy]

perl -le '$str1="abcyyy";$str2="abyyy";print grep{$_!~/.?(?=abc)/} ($str1,$str2)'
abyyy

[stushl]

[Quote=引用 4 楼 wxlfh 的回复:]

Perl code
if ($str !~ /abc/) {
#匹配了不包含的
}else {
#匹配了包含的
}

楼主直接要一个匹配不包含 abc 字符串的需求，个人认为是无意义的。你判断一个字符串之后，肯定要根据结果执行相应的操作，否则在逻辑上是说不通的。
[/Quote]
要在__EDN__ 后写测试用例，只能写字符串和正则表达式，不能直接写Perl代码

[stushl]

我也不是非得让大家整出一个来，只是问一下Perl中有没有这种语法，Perl刚用，不熟。谢谢大家。

[iambic]

直接用!~多省事。