perl在匹配字符串时打印一个输出

我写这个简单的代码是为了在日志中发现“错误”时收到提醒电子邮件

问题是，我希望每次扫描只获得一个警报。我的代码是根据文件上匹配的错误数生成警报数

open (LOG, "<$log") || die 'Could not OPEN log file';
while ($loglines = <LOG> ) {
if ($loglines =~ /Error/) { 
    print "Error on the log \n";
}
 }
 close (LOG);

打开（日志，”
假设没有封闭循环，我不认为这里有什么好处。如果有封闭循环，那么使用标签

我假设您正在使用：

use strict;
use warnings;

如果不是，那么就这样做。Perl专家使用它们来确保避免犯愚蠢的错误；Perl新手也应该出于同样的原因使用它们

假设没有封闭循环，我不认为这里有什么好处。如果有封闭循环，那么使用标签

我假设您正在使用：

use strict;
use warnings;

在脚本的顶部？如果没有，那么就这样做。Perl专家使用它们来确保避免犯愚蠢的错误；Perl新手也应该使用它们，因为同样的原因。
非常感谢，工作得很好。希望有人放弃投票。我没有足够的凭证支持投票。再次感谢！！非常感谢，工作得很好。希望如此给我一张放弃投票的票。我没有足够的凭证进行放弃投票。再次感谢！！
use strict;
use warnings;