많은 파일과 Perl에서 재귀를 통해 검색

Question

내 카탈로그 구조에서 파일을 검색하는 데 약간의 문제가 있습니다. 예를 들어 나는 "page"디렉토리를 가지고있다. 그 안에는 "a"와 "b"라는 두 개의 디렉토리가 있습니다. 두 디렉토리 모두 a.html 및 b.html 파일을 포함합니다. 어떻게이 파일을 찾고 화면에 쓰는 등 Perl 재귀 프로 시저로 작성합니까?

보다 구체적으로. 파일의 "보편적 인"경로를 작성하는 방법을 모르겠습니다. 예를 들어 :

open (FILE, "page/ (find a and b)/find (a.html and b.html)") or die "Can't open!"; 

Answer 1

당신은 파일을 찾을 glob를 사용할 수 있습니다

for my $filename (glob 'page/{a,b}/{a,b}.html') { 
    open my $FH, '<', $filename or die "Cannot open $filename: $!"; 
    # Process the file here. 
} 

도 File::Find를 참조하십시오.