perl - 如何使用 perl 从目录中逐行读取所有文件？

Question

例如，我在该文件夹中有一个名为 verilog 的文件夹，我还有一些文件夹和文件。

我想逐行搜索每个文件中的模式，计算模式匹配的次数，然后打印文件名、行号和计数。

Answer 1

从“verilog”目录中给出以下命令： 使用 grep -R：

对于文件名和行号：

grep -RHn pattern * | cut -d: -f-2

对于文件名和计数：

grep -RHc india * | awk -F":" '$2!=0'

Answer 2

文件名和行号：

system("find verilog -type f -exec grep -Hn pattern {} +")

每个文件的文件名和计数：

system("find verilog -type f -exec grep -Hc pattern {} +")

Answer 3

#!usr/bin/perl

use strict;
use File::Find;
use File::Slurp;

my $In_dir='some_path';
my @all_files;
my $pattern='test>testing string(\n|\t|\s)</test'

File::Find:find(
sub{
  push @all_files,$File::Find:name if(-f $File::Find:name);
},$In_dir);

foreach my $file_(@all_files){
  my @file_con=read_file($file_);
  my $lne_cnt;
  foreach my $con(@file_con){
   my $match_="true" if($con=~m/$pattern/igs);
   $lne_cnt++;
  }
 my $tot_line_in_file=$lne_cnt;
}