regex - 如何使用 perl 正则表达式查找不包含冒号符号的文本行

Question

例如，我试图不查找具有以下内容的文本行

    !dkdkdkdkdk: dkdkdkdkdkdkdkadfkldllsls  <------ do not find this line of code

    !dksdjfslfjlk afldajfdklafjdla;fd        <-------- find this line of code

我尝试了以下代码但不起作用。

           ^!(?!:)*$

Answer 1

如果有多行输入，则需要逐行读取数据，并检查每行是否以!开头且不包含:，如下所示正则表达式:

/^![^:]*$/

或者如果您想拆分条件:

if (/^!/ and not /:/)

字符类[^:]将匹配除:之外的任何字符。

这是工作示例:

#!/usr/bin/perl
use strict;
use warnings;

my @matches;
while (<DATA>) {
    if (/^![^:]*$/) {
        push @matches, $_;
        print "$_\n";
    }
}

__DATA__
!dkdkdkdkdk: dkdkdkdkdkdkdkadfkldllsls
!dksdjfslfjlk afldajfdklafjdla;fd

参见IDEONE demo

@matches 将包含通过测试的所有行。