日志
#!/bin/perl use 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 [email protected] < _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
。。。。。。