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

<pre name="code" >#!/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\n";@warn_arr = qw/连接已关闭 NullPointException IndexOutOfBound/;foreach $a  (@warn_arr){   open (C,"<","$a.tmp")  ;                     $count  = <C>;                                   print "$count is $count\n";                                                  $info =`tac $mon_file  |  grep "$a" | head -1`;                                                              open (A,"$mon_file") || dIE "$!\n";   $i=0;        while (<A>) {    if ($_ =~ /$a/i){$i++};                    };    if ($i !=0 && $i != $count && defined($count)) {print "error--$info\n";};   open (B,">","$a.tmp");      print B ("$i\n"); }; 

总结

以上是内存溢出为你收集整理的Perl 监控批量错误全部内容，希望文章能够帮你解决Perl 监控批量错误所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。