log4j perl 错误日志提取

日志

# !/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  - ' -1 day '   +% 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
。。。。。。

 

 

 

 

http://www.blogjava.net/Skynet/archive/2009/02/19/255445.html

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值