#!/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
Perl 打印关键字上下行
最新推荐文章于 2022-11-23 12:19:38 发布
这篇博客展示了如何使用Perl脚本读取文件,查找特定警告关键字(如'连接已关闭'等),统计出现次数,并在出现次数不匹配时,打印上下五行错误信息,同时调用SMSsendx发送报警信息。
摘要由CSDN通过智能技术生成