查找给定文件是否存在于目录中

Question

我想知道给定目录中是否存在文件。

我需要在temporaryPath中找到某些.txt文件，但文件的目录需要适合模式，我需要知道文件是否存在于给定的模式中，因为我认为这是最快的方法找到文件，唯一的“不确定”或“.*”路径在 a/b/c/d/e/ 和 dou/you/1.txt 之间，如果我尝试在 a 下使用 Find::File 正常查找父目录 a/b/c/d/e/，大约需要 10 分钟，并且有可能我在数组中存储了不需要的路径，因为 1.txt 也存在于子目录中。

例如想要特定的目录

a/b/c/d/e/f/g/h/dou/you/1.txt
a/b/c/d/e/k/l/m/dou/you/1.txt

a/b/c/d/e/k/l/m/wanna/play/2.txt
a/b/c/d/e/z/x/c/wanna/play/2.txt

a/b/c/d/e/f/g/h/with/me/3.txt
a/b/c/d/e/z/x/c/with/me/3.txt

Perl

use strict;
use warnings;

my @temporaryPath = qw(
    dou/you/1.txt
    wanna/play/2.txt
    with/me/3.txt
    like/play/4.txt
    anything/really/5.txt
);

foreach my $temporaryList ( @temporaryPath ) {

    my $dir = "a/b/c/d/e/" . "*" . "/$temporaryList";

    if ( -e $dir ) {
        print " exist :) $temporaryList\n";
    }
    else {
        print " not exist :( $temporaryList\n";
    }
}

我在$dir中使用了.*，因为路径完整路径之间有很多不同的目录 ，例如f/g/h、k/l/m 或 z/x/c。

结果是这样的

not exist :( dou/you/1.txt
not exist :( wanna/play/2.txt
not exist :( with/me/3.txt
not exist :( like/play/4.txt
not exist :( anything/really/5.txt

意思是$dir无法读取a/b/c/d/e/.*/

有什么办法吗？

Answer 1

-e 正确报告没有路径为a/b/c/d/e/*/dou/you/1.txt 的文件，因为a/b/c/d/e 中没有名为* 的目录。

use File::Find::Rule qw( );

my @targets = qw(
    dou/you/1.txt
    wanna/play/2.txt
    with/me/3.txt
    like/play/4.txt
    anything/really/5.txt
);

my $base_dir_qfn = 'a/b/c/d/e';

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

my $target_pat = join '|', map quotemeta, @targets;
my $target_re = qr{/(?:$target_pat)\z};

for my $file (@files) {
   say $file if $file =~ $target_re;
}

测试：

$ mkdir -p a/b/c/d/e/f/g/h/dou/you;    touch a/b/c/d/e/f/g/h/dou/you/1.txt
$ mkdir -p a/b/c/d/e/k/l/m/dou/you;    touch a/b/c/d/e/k/l/m/dou/you/1.txt
$ mkdir -p a/b/c/d/e/k/l/m/wanna/play; touch a/b/c/d/e/k/l/m/wanna/play/2.txt
$ mkdir -p a/b/c/d/e/z/x/c/wanna/play; touch a/b/c/d/e/z/x/c/wanna/play/2.txt
$ mkdir -p a/b/c/d/e/f/g/h/with/me;    touch a/b/c/d/e/f/g/h/with/me/3.txt
$ mkdir -p a/b/c/d/e/z/x/c/with/me;    touch a/b/c/d/e/z/x/c/with/me/3.txt
$ perl a.pl
a/b/c/d/e/f/g/h/dou/you/1.txt
a/b/c/d/e/f/g/h/with/me/3.txt
a/b/c/d/e/k/l/m/dou/you/1.txt
a/b/c/d/e/k/l/m/wanna/play/2.txt
a/b/c/d/e/z/x/c/wanna/play/2.txt
a/b/c/d/e/z/x/c/with/me/3.txt

Answer 2

听起来你需要 File::Globstar 模块。它实现了等效于 shell globstar 扩展，这将允许模式中的两个星号 ** 匹配任何字符串，包括路径分隔符

可能是这样的

use strict;
use warnings 'all';
use feature 'say';

use File::Globstar 'globstar';

my @paths = qw{
    dou/you/1.txt
    wanna/play/2.txt
    with/me/3.txt
    like/play/4.txt
    anything/really/5.txt
};

for my $path ( @paths ) {

    say for globstar "a/b/c/d/e/**/$path;
}