Как я могу получить все файлы в каталоге, но не в подкаталогах, в Perl?

Question

Как я могу найти все файлы, соответствующие определенным критериям (, возраст изменения в днях) в списке каталогов, но не в их подкаталогах?

Я хотел использовать 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

Вы можете установить File :: Find :: чернослив в 'хотел' функция для пропуска дерева каталогов. Добавьте что-то вроде $ File :: Find :: prune = 1 if (-d & & $ Файл :: Find :: name ne ".");