我正在编写这个简单的代码,以便在我的日志中发现“错误”时收到警告邮件。
问题是,每次扫描我只想得到一个警报,我的代码是根据文件上匹配的错误数量生成警报数。
open (LOG, "<$log") || die 'Could not OPEN log file';
while ($loglines = <LOG> ) {
if ($loglines =~ /Error/) {
print "Error on the log \n";
}
}
close (LOG);
结果就像
日志上的错误
日志上的错误
日志上的错误