Функция Perl похожа на wc в grep -c?

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 к вашему счетчику.