log4j perl 错误日志提取

日志 # !/bin/perl use  Encode ; open (NOTESFILES , $ARGV [ 0 ]); my   %errorMeganotes ; print   " >>>>>>>>>>>>>> " , $ARGV [ 0 ] , " <<<<<<<<<<\n " ; while  ( < NOTESFILES > ) {    if (  $_ =~/^ ( \ d{

>>阅读原文<<