perl 监控日志告警

最新推荐文章于 2023-02-09 15:41:25 发布

scan724

最新推荐文章于 2023-02-09 15:41:25 发布

阅读量914

点赞数

CC 4.0 BY-SA版权

分类专栏： zj-脚本

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

zj-脚本专栏收录该内容

93 篇文章 ¥39.90 ¥99.00

订阅专栏

本文展示了一个使用Perl编写的脚本，该脚本监控Apache-Tomcat的日志文件，特别是查找'Exception'关键字。当发现异常次数发生变化时，脚本将打印相关信息，并发送邮件通知。示例中，监控到'Exception'关键字出现180次，脚本定位到异常发生的具体行并提供上下文。

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

<pre name="code" class="sql">my $dir  = '/usr/local/apache-tomcat-7.0.55_8082/logs';
my $SDATE = strftime("%Y-%m-%d",localtime());
my $file = "localhost.$SDATE.log";
$mon_file = "$dir/$file";
##########监控关键字，以空格隔开################
###$count 上一次Exception的次数
@warn_arr = qw/Exception/;
foreach $a (@warn_arr) {
    undef @err_info;
    open( C, "<", "$a.tmp" );
    while (<C>) {
        $count = $_;
    }
print "\=========================================================================================================================\n";
print "\######监控异常关键字：      \"$a\"---数量=$count\n";

##$b是匹配到Exception关键字的最后行的行号

##$i是当前匹配Exception的行数
    open( A, "<", "$mon_file" ) || die "$!\n";
    $i   = 0;
    $num = 0;
    $b = 0;
    while (<A>)

了解本专栏