Perl 打印关键字上下行

72 篇文章 31 订阅 ¥39.90 ¥99.00
这篇博客展示了如何使用Perl脚本读取文件,查找特定警告关键字(如'连接已关闭'等),统计出现次数,并在出现次数不匹配时,打印上下五行错误信息,同时调用SMSsendx发送报警信息。
摘要由CSDN通过智能技术生成
#!/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($co
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

scan724

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值