Perl 监控批量错误

最新推荐文章于 2021-03-02 13:55:18 发布

scan724

最新推荐文章于 2021-03-02 13:55:18 发布

阅读量552

点赞数

CC 4.0 BY-SA版权

分类专栏： Perl 大骆驼

本文链接：https://blog.youkuaiyun.com/zhaoyangjian724/article/details/44338771

Perl 大骆驼专栏收录该内容

72 篇文章 ¥39.90 ¥99.00

订阅专栏

这是一个Perl脚本，用于监控WebSphere服务器日志中的特定错误，如'连接已关闭'，'NullPointException'和'IndexOutOfBound'。它会读取指定的日志文件，检查错误出现的次数，并对比历史记录，当错误计数不匹配时，脚本将打印出最新的错误信息。

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

<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\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 &a

了解本专栏