如何使用perl搜索目錄中的文件夾

Question

我是perl腳本的新手。我想搜索目錄「pqr」中名爲「abc」的每個文件夾，並將每個「abc」文件夾的路徑以文件名= pathOfABC的形式寫入單獨的文件（n.txt，其中n是整數）。任何人都可以給我一些提示嗎？

Answer 1

由於任務涉及遞歸，因此可以使用像File::Find這樣的模塊。

#!/usr/bin/env perl 

use strict; 
use warnings; 

use File::Find; 

my @files; 

sub wanted { 
    if (-d && $_ eq 'abc') { 
     push @files, $File::Find::name; 
    } 
} 

find \&wanted, 'pqr'; 

my $ctr = 1; 
for (@files) { 
    open my $fh, '>', "$ctr.txt" or die "Error opening file"; 
    print $fh $_; 
    $ctr++; 
} 

Answer 2

Path::Class::Rule模塊使得這樣的搜索非常簡潔。

代碼看起來像這樣。

use strict; 
use warnings; 

use Path::Class::Rule; 

my $rule = Path::Class::Rule->new->dir->name('abc'); 

print "$_\n" foreach $rule->all('pqr');