Perl正则表达式不匹配字符串操作

Question

What I have so far:

Here is the regex I created

 if ( /PRINT\((\s*\n*\t*)[A-Z]+_[A-Z]*(_*)(DBG|NOT|UNC)/  ) { next; }

Currently it executes next when it detects

PRINT(ABC_XYZ_DBG...
PRINT(ABC_XYZ_NOT...
PRINT(ABC_UNC...

and it doesn't execute next when it is

PRINT(ABC_XYZ_ERR...
PRINT(ABC_XYZ_WRN...
PRINT(ABC_ERR...

I want to change it to:

I want to modify it so it will execute next for everything other than _ERR or _WRN

PRINT(ABC_XYZ_ERR...
PRINT(ABC_XYZ_WRN...
PRINT(ABC_ERR...

I tried the following but it didn't match anything

        my $ERR = qr/ERR/;
        my $WRN = qr/WRN/;
 if ( /PRINT\((\s*\n*\t*)[A-Z]+_[A-Z]*(_*)(?!$ERR|$WRN)/  ) { next; }

I am making some mistake in the not-match (?!$ERR) operator but I don't know how to correct it. I appreciate your inputs in advance.

Answer 1

next unless ( /PRINT\((\s*\n*\t*)[A-Z]+_[A-Z]*(_*)(ERR|WRN)/ );

Answer 2

You can match (ERR|WRN) instead of (DBG|NOT|UNC) and then negate it with ! .

You can use \\s* instead of \\s*\\t*\\n* because \\s matches any whitespace.

if ( ! /PRINT\((\s*)[A-Z]+_[A-Z]*(_*)(ERR|WRN)/ ) { next; }

Input:

PRINT(ABC_XYZ_DBG...
PRINT(ABC_XYZ_NOT...
PRINT(ABC_UNC...
PRINT(ABC_XYZ_ERR...
PRINT(ABC_XYZ_WRN...
PRINT(ABC_ERR...

One-liner:

perl -nle 'if ( ! /PRINT\((\s*)[A-Z]+_[A-Z]*(_*)(ERR|WRN)/  ) { next; } print' input.txt

Output:

PRINT(ABC_XYZ_ERR...
PRINT(ABC_XYZ_WRN...
PRINT(ABC_ERR...