Perl函數與grep -c中的wc類似嗎？

Question

我正在嘗試編寫一個腳本，該腳本通過文本文件的整個文件夾，匹配一個字符串模式。我想要的是每個文件中匹配的模式的數量。在unix中，它可以通過grep -c <pattern> *完成。 -c選項返回您的計數。有沒有什麼方法可以使用perl regex來獲得這個計數？

請讓我知道。

Answer 1

不是我所知道的，只是寫下來，當你打開每個文件時，使用while去遍歷它的每一行，並且對每行（用你的模式）使用=〜，如果匹配，則加1到你的櫃檯。

Answer 2

my $grep_count = grep (/PATTERN/, @array); 

或者一個文件：

perl -we "print scalar grep /PATTERN/, <>;" file.txt 

http://perldoc.perl.org/functions/grep.html