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

Question

我到目前为止有：

这里是我创建

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

正则表达式目前，它执行next当它检测到

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

当它是

时它不执行

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

我想将它更改为：

我想修改它，所以它会比_ERR或_WRN

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

其他一切执行next我尝试以下，但它没” t什么都可以匹配

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

我是mak在不匹配的(?!$ERR)运营商中出现了一些错误，但我不知道如何纠正它。我很欣赏你的投入。

Answer 1

可以匹配(ERR|WRN)而不是(DBG|NOT|UNC)，然后用!否定它。

您可以使用\s*而不是\s*\t*\n*，因为\s匹配任何空格。

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

输入：

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

一衬垫：

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

输出：

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

Answer 2

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