log4j perl 错误日志提取
时间:2011-06-01 BlogJava Skynet
日志
#!/bin/perl
use Encode ;
open(NOTESFILES,$ARGV[0]);
my %errorMeganotes;
print
">>>>>>>>>>>>>>",$
ARGV[0],"<<<<<<<<<<\n";
while (<NOTESFILES>) {
if(
log4j perl 错误日志提取 - 编程入门网 - 凌众科技
快速业务通道
log4j perl 错误日志提取 - 编程入门网
作者 佚名技术
来源 NET编程
浏览
发布时间 2012-06-17
|
| content |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn
为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
|
|
|
=~/^(\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=
log4j perl 错误日志提取 - 编程入门网 - 凌众科技
快速业务通道
log4j perl 错误日志提取 - 编程入门网
作者 佚名技术
来源 NET编程
浏览
发布时间 2012-06-17
|
| content |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn
为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
|
|
|
;
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
。。。。。。 |
