Perl Oneliner正则表达式

Question

我需要将结果从文件记录到屏幕上。

猫LOGFILE.TXT

=====================Installing Oracle======================== 
*** ERROR[Install023] Oracle is already installed in $VOL1. 
Alert: There might be an issue, Please check! 
============================================= 
=====================File Set verification======================== 
Filesystem State 512-blocks  Used  Avail Capacity Mounted on 
HOME   STARTED 143372688 119516872 23855816 83% /home 
BIN  STOPPED  -   -   -  - /nfsT/nfsdata/common 
ROOT   STARTED 143372688 119516872 23855816 83% /
TEMP   STARTED 143372688 118402344 24970344 83% /tmp 
The Filset for home directory looks Ok. 
The Filset for root directory looks Ok. 
============================================= 

我做：

perl -0777 -nle 'print $2 "\n" while m/^(={21})([\w\s]+)(+={24})/gm' logfile.txt 

但它不会给任何结果。

需要输出。

Installing Oracle..... Alert 
File Set verification.....Ok! 

Answer 1

目前尚不清楚所有警报的可能原因可能是什么，但你的样品以下工作：

perl -ne 'undef $err, print "$1 ..." if /^={21}([^=]+)={24}/; 
      $err = 1 if /ERROR/; 
      print $err ? "Alert" : "Ok!", "\n" if /={45}/'