如何在Perl中获取目录中的所有文件，而不是子目录中的所有文件？

Question

如何在目录列表中找到符合特定条件（-M，修改年龄（以天为单位））但在子目录中不匹配的所有文件？

我想使用File :: Find，但看起来它总是会转到子目录。

Answer 1

@files = grep { -f && (-M) < 5 } <$_/*> for @folders;

Answer 2

将readdir或File::Slurp::read_dir与grep结合使用。

 #!/usr/bin/perl

use strict;
use warnings;

use File::Slurp;
use File::Spec::Functions qw( canonpath catfile );

my @dirs = (@ENV{qw(HOME TEMP)});

for my $dir ( @dirs ) {
    print "'$dir'\n";
    my @files = grep { 2 > -M and -f }
                map { canonpath(catfile $dir, $_) } read_dir $dir;
    print "$_\n" for @files;
}

Answer 3

您可以在'wanted'函数中设置File :: Find :: prune以跳过目录树。添加类似$ File :: Find :: prune = 1 if（-d＆amp;＆amp; $ File :: Find :: name ne“。”）;