如何在Perl中獲取目錄中的所有文件，但不能獲取子目錄中的所有文件？

Question

我怎樣才能找到所有目錄的列表匹配特定標準（以天爲-M，修改年齡），在其子目錄中的文件，但不？

我想使用文件::查找，但看起來它總是轉到子目錄了。

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

您可以在「被通緝」功能中設置文件::查找::修剪跳過目錄樹。添加類似$文件::查找::修剪= 1，如果（-d & & $文件::查找::名字呢 「」）;