Perl에서 디렉토리의 모든 파일을 가져올 수 있습니까 (서브 디렉토리는 아님)?

Question

디렉토리 목록에서 특정 기준 (-M, 수정 일 수)과 일치하지만 하위 디렉토리에는없는 모든 파일을 어떻게 찾을 수 있습니까?

내가 찾기 :: 파일을 사용하고 싶어하지만 항상 너무 하위 디렉토리로 이동합니다 것 같습니다. grep와 함께

Answer 1

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

Answer 2

사용 readdir 또는 File::Slurp::read_dir.

#!/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 :: prune = 1 if (-d & & $ File :: Find :: name ne ".")와 같은 것을 추가하십시오.