如何使用perl從目錄中逐行讀取所有文件？

Question

例如，我在該文件夾中有一個名為verilog的文件夾，我有一些文件夾和文件。

我想逐行搜索每個文件中的模式，保持模式匹配的次數，然后打印文件名，行號和計數。

Answer 1

文件名和行號：

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

每個文件的文件名和計數：

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

Answer 2

以下命令將在“verilog”目錄中給出：使用grep -R：

對於文件名和行號：

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

對於文件名和計數：

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

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;
}