Замена Regex с использованием perl в приложении

Question

Я должен сделать замену регулярных выражений, и я использую perl для этого; .? (. *), Который похож на этот

$ ABC = ~ S/APP _ * * _ LOG _ _ */$ 1/

печати "ABC = $ ABC \ п".

Где $ABC может быть ниже форматом до и после подстановки:

APP_184_PRD_LOG_O2_2M -> O2 
APP_184_PRD_CFC_O2_6D -> O2 
APP_046_STG_CFC_BCK_4W_1 -> BCK 
APP_050_STG_LOG_OSS_8M_2 -> OSS 
APP_050_STG_LOG_SAM_SOX_2M -> SAM_SOX 
APP_050_STG_CFC_SAM_FOR_6M_3 -> SAM_FOR 

Rules:- 
1st variable is always APP 
4th variable can be LOG or CFC 
We are concerned with variable no.5 or 6(in some cases) 
If the 6th variable has Number+(W/D/M), then 6th & 7th variable to be removed 

Замещение должен быть один вкладыш (ограничение применения).

Answer 1

Попробуйте либо вы можете использовать отрицательный предпросмотр или положительный взгляд вперед

Отрицательный взгляд вперед

~s/APP.+?(?:LOG|CFC)_(.+?)_(?![^\d]).+/$1/

Положительный смотреть вперед

~s/APP.+?(?:LOG|CFC)_(.+?)_(?=\d).+/$1/g;

while (<DATA>) 
{ 
    $_ =~s/APP.+?(?:LOG|CFC)_(.+?)_(?![^\d]).+/$1/g; 
    print $_; 

} 

__DATA__ 
APP_184_PRD_LOG_O2_2M 
APP_184_PRD_CFC_O2_6D 
APP_046_STG_CFC_BCK_4W_1 
APP_050_STG_LOG_OSS_8M_2 
APP_050_STG_LOG_SAM_SOX_2M 
APP_050_STG_CFC_SAM_FOR_6M_3 

выход

O2 
O2 
BCK 
OSS 
SAM_SOX 
SAM_FOR 

Answer 2

Вы можете использовать negative lookahead(?![^\d+].*?), то есть:

^APP.*?(?:CFC|LOG)_(.*?)_(?![^\d+].*?) 

---

DEMO

https://regex101.com/r/lE7oB7/1

Answer 3

Это будет делать это я тоже думаю:

s/^APP_[^_]{3}_[^_]{3}_(?:LOG|CFC)_(.+)_\d[WMD](?:_\d+)?$/$1/; 

Выход:

$ perl -le 'for (@ARGV) { s/^APP_[^_]{3}_[^_]{3}_(?:LOG|CFC)_(.+)_\d[WMD](?:_\d+)?$/$1/; print }' APP_184_PRD_LOG_O2_2M APP_184_PRD_CFC_O2_6D APP_046_STG_CFC_BCK_4W_1 APP_050_STG_LOG_OSS_8M_2 APP_050_STG_LOG_SAM_SOX_2M APP_050_STG_CFC_SAM_FOR_6M_3 
O2 
O2 
BCK 
OSS 
SAM_SOX 
SAM_FOR 
$