perl行計算包含特定文本的文件

Question

基本上我想要統計包含單詞Out的行的數量。

my $lc1 = 0; 
open my $file, "<", "LNP_Define.cfg" or die($!); 
#return [ grep m|Out|, <$file> ]; (I tried something with return to but also failed) 
#$lc1++ while <$file>; 
#while <$file> {$lc1++ if (the idea of the if statement is to count lines if it contains Out) 
close $file; 
print $lc1, "\n"; 

Answer 1

使用index：

0 <= index $_, 'Out' and $lc1++ while <$file>; 

Answer 2

命令行可能是你太潛在選項：

perl -ne '$lc1++ if /Out/; END { print "$lc1\n"; } ' LNP_Define.cfg 

的-n假定而循環的所有代碼之前END。
的-e預計代碼由''包圍。

$ lc1 ++只有在以下if語句爲真時纔會計數。

if statement per line looking for「Out」。

的END {}語句是用於處理的，而循環結束後。這裏是你可以打印計數的地方。

或不帶命令行：

$ perl count.pl LNP_Define.cfg