Perl的文件::查找::規則排除目錄從一個數組

Question

我有一個數組一組目錄作爲

chdir /tmp; 
my @dir=("test" "abc" "def") 

我使用的文件尋找一種方式::查找::規則來找到所有文件在/ tmp 遞歸地，但不包括來自@dir中的文件。

我可以

my $rule = File::Find::Rule->new; 
$rule->file; 
my @files = $rule->in(@dir); 

得到@dir所有文件，但我不能否定的條件，那就是排除@dir。我正在嘗試

chdir /tmp; 
@files = File::Find::Rule->new 
    ->file() 
    ->name(@dir) 
    ->prune 
    ->in("."); 

但沒有輸出。

Answer 1

的documentation列出了這個例子：

忽略這裏CVS目錄

my $rule = File::Find::Rule->new; $rule->or($rule->new 
       ->directory 
       ->name('CVS') 
       ->prune 
       ->discard, 
      $rule->new); 

注意使用空規則。空規則匹配任何他們看到的，所以效果是匹配（和丟棄）目錄名爲「CVS」或匹配任何

你可以probalby做同樣的事情：

my @exclude_dirs = qw(test abc def); 
my $rule = File::Find::Rule->new; 
$rule->or($rule->new 
       ->directory 
       ->name(@exclude_dirs) 
       ->prune 
       ->discard, 
      $rule->new); 
my @files = $rule->in('/tmp'); 

---

考慮下面這個例子：

foo@bar:~/temp/filefind> tree 
. 
├── bar 
│   ├── bar.txt 
│   └── foobar.txt 
├── baz.txt 
└── foo 
    └── foo.txt 

2 directories, 4 files 

下面的代碼：

#!/usr/bin/perl 
use strictures; 
use File::Find::Rule; 
use Data::Dump; 

my @exclude_dirs = qw(foo); 
my $rule = File::Find::Rule->new; 
$rule->or($rule->new 
       ->directory 
       ->name(@exclude_dirs) 
       ->prune 
       ->discard, 
      $rule->new); 
my @files = $rule->in('filefind'); 
dd \@files; 

現在我運行此：

foo@bar:~/temp> perl file-find.pl 
[ 
    "filefind", 
    "filefind/baz.txt", 
    "filefind/bar", 
    "filefind/bar/bar.txt", 
    "filefind/bar/foobar.txt", 
]