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