Perl函数类似于grep -c中的wc？

Question

我正在尝试编写一个脚本，该脚本遍历整个文本文件夹，与字符串模式匹配。我想要的是每个文件中匹配的模式数。在unix中，它可以由grep -c <pattern> *完成。 -c选项返回计数的位置。有没有办法使用perl正则表达式计算？

请告诉我。

Answer 1

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

或者是文件：

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

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

Answer 2

我不知道，但只是写它，当你打开每个文件时，使用while遍历每一行，并对每一行（使用你的模式）使用=〜，如果匹配，然后在你的柜台加1。