使用 File::Find::Rule从数组中排除根/基目录

Question

我正在尝试使用 File：：Find：：Rule 读取子目录，但我的代码也打印/读取基本目录以及子目录。 我如何纠正在一些类似帖子中已经解释过的 CVS 示例 （http://search.cpan.org/~rclamp/File-Find-Rule-0.34/lib/File/Find/Rule.pm） 方法的使用。我的代码看起来像 -

 use File::Find::Rule;
my $directory = './test_dir/';
my $rule = File::Find::Rule->new; $rule -> or($rule ->new
        -> directory
        ->name('test_dir')
        ->prune
        ->discard,
          $rule->new);
my @subdirs = $rule->in($directory);

它仍然在@subdir中列出 ./test_dir。

Answer 1

您可以使用

grep来排除搜索目录。

my @subdirs = grep { $_ ne $directory } $rule->in($directory);

在这种情况下，您必须更改$directory的内容以匹配File：：find输出它的方式。没有尾部斜杠，也没有前导./。只需使用名称或直接相对路径。

my $directory = 'test_dir';   
my $other_dir = 'foo/bar/baz'; # multi-level depths would look like this