Perl 监控批量错误

<pre name="code" class="sql">#!/usr/bin/perl 
$dir='/home/websphere/WebSphere/AppServer/profiles/AppSrv01/logs/server1';
$file = 'SystemErr.log';
$mon_file="$dir/$file";
print "$mon_file is $mon_file
";
@warn_arr = qw/连接已关闭 NullPointException IndexOutOfBound/;
foreach $a  (@warn_arr){
   open (C,"<","$a.tmp")  ;
       
              $count  = <C>;   
                        
        print "$count is $count
";   
                                       
        $info =`tac $mon_file  |  grep "$a" | head -1`;   
                                                   
        open (A ,"<","$mon_file") || die "$!
";   
$i=0;
        while (<A>) {   
 if ($_ =~ /$a/i){$i++};
                    };   
 if ($i !=0 && $i != $count && defined($count)) {print "error--$info
";};
   open (B,">","$a.tmp");   
   print B ("$i
"); 

};