Question

我可以使用perl风格使用什么正则表达式来查找所有那些不以标记开头的行。

我的文字或多或少是这样的：

<english> text text text text.
<english> text text text.
text text text

我需要验证，所有行都以此开头，我希望看到所有那些不以它开头的内容。

我试过的是：

^[^<english>].*$

(?!^<english>).*

(?<!<english>).*

.*(?!<english>).*

但没有那些工作。

有人可以帮助我，解释提供的正则表达式吗？感谢。

Answer 1

您不需要任何断言，只需进行测试：

use strict;
use warnings;

while (<DATA>) {
    if (/^<english>/) {
        print "matches:  $_";
    } else {
        print "no match: $_";
    }
}

__DATA__
<english> text text text text.
<english> text text text.
text text text

Answer 2

你需要这样做：

^(?!<english>).*?$使用g和m修饰符

这匹配不以<english>

开头的行

演示：http://regex101.com/r/xZ1xF4

正则表达式如何找到那些不以给定字符串开头的行？

2 个答案: