log4j perl 錯誤記錄檔提取

日誌

#!/bin/perluse Encode ;open(NOTESFILES,$ARGV[0]);my %errorMeganotes;print ">>>>>>>>>>>>>>",$ARGV[0],"<<<<<<<<<<\n";while (<NOTESFILES>) {  if( $_=~/^(\d{4}-\d{2}-\d{2}\s\d{2}:\d{2}:\d{2})\s+ERROR\s+(.*)\s/g ){     if($errorMeganotes{$2}){       push @{$errorMeganotes{$2}},$1;     }else{       $errorMeganotes{$2}=[$1];     }  }}for(keys %errorMeganotes){  my $tmp_keys=$_;  my @tmp_array= @{$errorMeganotes{$tmp_keys}};  print "error number :>>",scalar(@tmp_array),"<<\n",encode("GBK",decode("UTF-8",$tmp_keys)),"\n",join(",\t",@tmp_array),"\n\n\n";}

sh

#!/bin/sh
nowDate=$(date-d'-1day'+%Y-%m-%d);
echo$nowDate
perl/data/apps/shell/meganotesErrorLog.pl/data/apps/meganotes/tomcat/l ogs/app/app.log.$nowDate>　_tmp_$nowDate;
perl/data/apps/shell/meganotesErrorLog.pl/data/apps/schedule/tomcat/lo gs/app/app.log.$nowDate　>>_tmp_$nowDate;
mail-s$nowDate-ERROR-log　my@mail.com　<　_tmp_$nowDate;
rm_tmp_$nowDate;

結果：

>>>>>>>/data/apps/meganotes/tomcat/logs/app/ap p.log.2009-02-18<<<<<<<<<

error number :>>2<<

MusicActionOpLogProxy:142 - music.popularTime=[Invalid field value for field "music.popularTime".]

2009-02-18 15:53:54,　 2009-02-18 16:00:12

。。。。。。