log4j perl 错误日志提取_perl 打印日志 errorcode-优快云博客

本文介绍了一个使用Perl编写的脚本，该脚本用于从指定的日志文件中提取错误记录，并统计每种错误出现的次数。通过解析日期和错误信息，此脚本能够有效地汇总前一天的日志数据，并将结果通过邮件发送给指定的收件人。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

日志

# !/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 " ;
}

# !/bin/sh
nowDate = $(date - d ' -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