首页 / 软件开发 / JAVA / log4j perl 错误日志提取

log4j perl 错误日志提取2011-06-01 BlogJava Skynet日志

#！/bin/perluse Encode ;open（NOTESFILES,$ARGV[0]）;my %errorMeganotes;print ">>>>>>>>>>>>>>",$ARGV[0],"<<<<<<<<<<
";while （<NOTESFILES>） {if（ $_=~/^（d{4}-d{2}-d{2}sd{2}:d{2}:d{2}）s+ERRORs+（.*）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）,"<<
",encode（"GBK",decode（"UTF-8",$tmp_keys））,"
",join（",	",@tmp_array）,"


";}

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

。。。。。。