創建日誌文件計數器

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