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)/);