Perl 监控日志异常报警

概述<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 "\

<pre name="code" >#!/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_file\n";open (C,"<","$file.tmp");while (<C>){     $count = $_;}print "$count is $count\n";$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--$info\n";};   open (B,">","$file.tmp");       print B ("$i\n");sleep (10);}

总结

以上是内存溢出为你收集整理的Perl 监控日志异常报警全部内容，希望文章能够帮你解决Perl 监控日志异常报警所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。