日志 　　

#!/bin/perl
useEncode;
open(NOTESFILES,$ARGV[0]);
my%errorMeganotes;
print ">>>>>>>>>>>>>>",$ARGV[0],"<<<<<<<<<<n";
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"errornumber:>>",scalar(@tmp_array),"<<n",encode("GBK",decode("UTF-8",$tmp_keys)),"n",join(",t",@tmp_array),"nnn";
}

sh

#!/bin/sh
nowDate=$(date-d'-1day'+%Y-%m-%d);
echo$nowDate
perl/data/apps/shell/meganotesErrorLog.pl/data/apps/meganotes/tomcat/logs/app/app.log.$nowDate>　_tmp_$nowDate;
perl/data/apps/shell/meganotesErrorLog.pl/data/apps/schedule/tomcat/logs/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/app.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

　　。。。。。。