주어진 디렉토리에만 존재하는 파일을 나열 하시겠습니까?

Question

./a/b 또는 ./a/d 디렉토리에만있는 파일을 나열하려고합니다. 이제 (-d && $_ =~ "b") || (-d && $_ =~ "d")을 사용하여 명시 적으로 지정하고 있습니다. 배열에 필요한 폴더를 넣을 수있는 방법이 있습니까?

use File::Find; 

my $filename = "h*.txt"; 
print ("Now it's:", $filename); 

find({ 
    wanted => \&wanted, 
    preprocess => \&dir_preprocess, 
}, './a'); 

sub dir_preprocess { 
    my (@entries) = @_; 

    #my @tmparr=("d","b"); This isn't working 

    if ($File::Find::dir eq './a') { 
     @entries = grep { (-d && $_ =~ "b") || (-d && $_ =~ "d") }@entries; 
    } 
    return @entries; 
} 

my @mylist; 

sub wanted{ 
    if($_ =~ $filename) { 
    push(@mylist, $_); 
    } 
}   

print ("It's:", @mylist); 

Answer 1

당신은으로 |을 사용할 수 있습니다 "또는"정규식 표현한다. (-d && $_ =~ /(b|d)/)은 b 또는 d와 일치합니다. 배열에 이름을 넣고 join을 사용하여 필요한 정규식을 생성 할 수 있습니다.

경로 깊이를 늘리는 것과 같은 일을하고 싶을 수도 있습니다. 그렇지 않으면 계층 구조의 여러 단계에서 얻을 수 있습니다. 또한 끝에 $을 추가하여 끝에 오는 것을 나타낼 수 있습니다.