日志
#!/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/shnowDate=$(date-d'-1day'+%Y-%m-%d);echo$nowDateperl/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
。。。。。。
在乎的是看风景的心情,旅行不会因为美丽的风景终止。