如何在 File::Find::Rule 中的“or”替代中使用 mindepth 和 maxdepth？

我有以下文件夹结构（作为一个最小的示例）：

dir
├── a
│   ├── b
│   │   ├── c.txt
│   │   └── d.txt
│   └── c
│       └── q.txt
├── b
│   ├── bb.txt
│   └── d
│       └── dd.txt
└── q.txt

我想找到所有.txt文件，但排除其中的所有内容dir/b从搜索中使用File::Find::Rule（我知道我可以使用轻松地做到这一点File::Find但这需要对我的代码进行大量重构）。

我尝试了以下方法：

use feature qw(say);
use strict;
use warnings;
use File::Find::Rule;

my $dir = 'dir';
my @files = File::Find::Rule->or(
    File::Find::Rule->directory->mindepth(1)->maxdepth(1)
                    ->name( 'b' )->prune->discard,
    File::Find::Rule->name('*.txt'),
)->in( $dir );
say for @files;

Output:

dir/q.txt
dir/a/c/q.txt

预期产出:

dir/q.txt
dir/a/b/d.txt
dir/a/b/c.txt
dir/a/c/q.txt

似乎maxdepth() and mindepth()不在里面工作or()功能。

就像find命令行工具，maxdepth不限制匹配发生的地点；它限制了实际的遍历。

maxdepth( $level )

最多下降$level（非负整数）起始点以下的目录级别。

就像find命令行工具，mindepth防止在特定深度之前执行所有测试。

mindepth( $level )

不要在低于以下的级别进行任何测试$level（非负整数）。

Given what they do, they affect the entire search. As such, it's no surprise the mindepth and maxdepth from the outer rule object is the one used and the others are ignored.^[1]

相同的解决方案适用于find这里可以使用命令行工具。

find:

$ find dir -wholename dir/b -prune -o -name '*.txt' -print
dir/a/b/c.txt
dir/a/b/d.txt
dir/a/c/q.txt
dir/q.txt

文件::查找::规则:

$ perl -MFile::Find::Rule -e'
   my ($dir) = @ARGV;
   CORE::say for
      File::Find::Rule
         ->or(
            File::Find::Rule->exec(sub { $_[2] eq "$dir/b" })->prune->discard,
            File::Find::Rule->name("*.txt"),
         )
         ->in($dir);
' dir
dir/q.txt
dir/a/b/c.txt
dir/a/b/d.txt
dir/a/c/q.txt

另一种方法是使用 File::Find::Rule 构建要搜索的目录列表，然后使用 File::Find::Rule 的其他用途搜索这些目录。 （Perl 相当于find ... -print0 | xargs -0 -I{} find {} ....)

1. The find命令行实用程序以不同的方式处理错误的输入。

   $ find dir -type d -mindepth 1 -maxdepth 1 -name b -prune -o -name '*.txt' -print
   find: warning: you have specified the -mindepth option after a non-option argument (, but options are not positional (-mindepth affects tests specified before it as well as those specified after it).  Please specify options before other arguments.
   
   find: warning: you have specified the -maxdepth option after a non-option argument (, but options are not positional (-maxdepth affects tests specified before it as well as those specified after it).  Please specify options before other arguments.
   
   dir/q.txt