如何使用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; 
}