フォルダ内の複数レベルの繰り返しでWindows上のすべてのテキストファイルを見つける

Question

テキストファイルを見つけるために複数のレベルのディレクトリをループする必要があるシナリオがあります。

私は、フォルダC:\Aから始めて、その中のすべてのテキストファイルを読みたいと思う。しかし、彼らは同じレベルに配置されていません。

いくつかのテキストファイルがC:\A\sample2.txt

として C:\A\A1\sample1.txt

一部

一部に配置されているC:\A\A2\A3\sample.txt

ように私は私A1とA2を返し、フォルダA内のループにできていますが、私は知りたいと思いましたどのレベルにも自動的に反復し、テキストファイルとそのパスを返します。 ance！

Answer 1

File::Findモジュールを使用してください。

use strict; 
use warnings 'all'; 

use File::Find 'find'; 

my @files; 

find(sub { 
    push @files, $File::Find::name if -f and /\.txt$/i; 
}, 'C:\A'); 

print "$_\n" for @files; 

Answer 2

私はFile::Find::Ruleを使用したい：

#!/usr/bin/env perl 

use strict; 
use warnings; 
use File::Find::Rule; 

my @files = File::Find::Rule -> file() 
          -> name('sample*.txt') 
          -> in ('C:\\A'); 

foreach my $file (@files) { 
    print "Found: $file\n"; 
    #process it here. 
}