選擇性地對所有運行perl腳本**。包含文字「some_attr」目錄和子目錄dat文件

Question

我想運行在所有.DAT包含文本文件perl腳本「some_attr」指定目錄及其子目錄。我怎樣才能做到這一點？ 我可以列出包含使用「「some_attr」 所有.dat文件***的grep -nri some_attr * ./'* 和運行perl腳本手動過greped文件，但我想自動化這個用perl

Answer 1

假設你有一個Bash shell中，你可以使用一個簡單的for循環使用grep結合：

for file in `grep -lr some_attr | uniq` 
do 
    perl script_name.pl $file 
done 

Answer 2

您可以使用File::Find或File::Find::Rule：

use strict; 
use warnings; 
use autodie; 

use File::Find::Rule; 

# find all the .dat files in . 
my @files = File::Find::Rule->file() 
          ->name('*.dat') 
          ->in('.'); 

for my ($file) { 
    my $data = do { 
     open my $fh, '<', $file; 
     local $/; 
     <$fh>; 
    }; 

    next if $data !~ /some_attr/; 

    print $file, "\n"; 
}