使用Perl模块File :: Find :: Rule查找匹配的文件

Question

我正在尝试使用File::Find::Rule模块在子目录中查找特定文件（ output.txt ），如果没有，请在根目录中搜索以查看是否存在。 问题是存在多个output.txt文件，因此，如果找不到原始文件，我们应该只寻找其他文件。

基本上目录结构是这样的

top
    level-1-a
        level-2-a
            output.txt
        level-2-b
            output.txt
    level-1-b
        level-2-a
            output.txt
        level-2-b
            output.txt

现在我有：

    @files = File::Find::Rule->file()->name($output)->in($sub_dir);

    if ( ! @files ) {
        @files = File::Find::Rule->file()->name($output)->in($root_dir);
    }

行为所在的地方，我们首先在\\top\\level-1-a查找output.txt，然后在level-2-a和level-2-b找到匹配项。 如果在level-1-a下没有匹配的文件，我们将在\\top上进行相同的调用以查找显示在level-1-b目录中的匹配项。 有没有更干净的方法可以验证“ if-else”的想法？

Answer 1

我会一次检查一个子目录。 这是一个例子。 一旦找到包含所需文件的子目录， last就会脱离for循环

my @files;

for my $subdir ( 'level-1-a', 'level-1-b' ) {
    last if @files = File::Find::Rule->file()->name($output)->in("/top/$subdir");
}