log4j perl 錯誤日誌提取

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

>>阅读原文<<