Perl 监控日志异常报警
发布时间:2020-12-15 23:46:45 所属栏目:大数据 来源:网络整理
导读:pre name="code" class="sql"#!/usr/bin/perlwhile (1==1){$dir='/root/log';$file_tmp = `cd $dir; ls -ltr logs.log* | tail -1 `;$file = (split/s+/,"$file_tmp")[8];$mon_file="$dir/$file",print "$mon_file is $mon_filen";open (C,"","$file.tmp"
<pre name="code" class="sql">#!/usr/bin/perl while (1==1){ $dir='/root/log'; $file_tmp = `cd $dir; ls -ltr logs.log* | tail -1 `; $file = (split/s+/,"$file_tmp")[8]; $mon_file="$dir/$file",print "$mon_file is $mon_filen"; open (C,"<","$file.tmp"); while (<C>){ $count = $_; } print "$count is $countn"; $info =`tac $mon_file | grep excep | head -1`; open (A,"$mon_file") || die "$!n"; $i=0; while (<A>) { if ( $_ =~/exception/i){$i++}; } if ($i > $count) {print "error--$infon";}; open (B,">","$file.tmp"); print B ("$in"); sleep (10); } (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |