Perl 打印关键字上下行

最新推荐文章于 2022-11-23 12:19:38 发布

scan724

最新推荐文章于 2022-11-23 12:19:38 发布

阅读量680

点赞数

CC 4.0 BY-SA版权

分类专栏： Perl 大骆驼

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

Perl 大骆驼专栏收录该内容

72 篇文章 ¥39.90 ¥99.00

订阅专栏

这篇博客展示了如何使用Perl脚本读取文件，查找特定警告关键字（如'连接已关闭'等），统计出现次数，并在出现次数不匹配时，打印上下五行错误信息，同时调用SMSsendx发送报警信息。

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

#!/usr/bin/perl 
$dir  = '/home/mysql';
$file = '1.log';
$mon_file = "$dir/$file";
print "\$mon_file is $mon_file\n";
@warn_arr = qw/连接已关闭 连接超时 NullPointException IndexOutOfBound exception/;
foreach $a (@warn_arr) {
    undef @err_info;
    open( C, "<", "$a.tmp" );
    while (<C>) {
        $count = $_;
    }
    print "$a is $count";

    open( A, "<", "$mon_file" ) || die "$!\n";
    $i   = 0;
    $num = 0;
    while (<A>) {
        $num++;
        if ( $_ =~ /$a/i ) { $i++; $b = $num }
    }
    print "\$b is $b\n";

    if ( $i != 0 && $i != $count && defined($count) ) {
        open( B, "<", "$mon_file" ) || die "$!\n";
        while (<B>) {
            chomp($_);
            push( @err_info, $_ ) if ( $. >

了解本专栏