创建日志文件计数器

Question

对于perl的语法来说，尝试设置一个计数器来记录从日志文件中发生失败的密码的时间，并将总数打印出到控制台。我在屏幕上打印了很多数字，而不是最后一个数字。任何想法或指示都会有所帮助。

#!/usr/bin/perl 
$count = 0; 

open (MYFILE, 'auth.log'); 
while (my $line = <MYFILE>){ 
if ($line =~ /Failed password/){ 
$count++; 
} 
print $count; 
#print "$line\n" if $line =~ /Failed password/; 
#this was a print test to see if it would only print the failed password strings in the file.  
} 
close (MYFILE); 

Answer 1

你需要移动print $count外while循环。

您还应该检查我们的open的返回代码，否则您将不知道文件是否丢失或无法打开。

#!/usr/bin/perl 

use warnings; 
use strict; 

my $count = 0; 

open (my $fh, '<', 'auth.log') or die $!; 
while (my $line = <$fh>){ 
    if ($line =~ /Failed password/){ 
     $count++; 
    } 
} 
close $fh; 
print $count; 

最后，还有一种方法在命令行做到这一点：

grep -c 'Failed password' auth.log