Perl의 grep을 사용하여 이름에 패턴을 일치시켜 특정 파일을 찾는 방법

Question

디렉토리에 저장된 파일 이름의 시작 부분과 일치해야하는 Perl 변수에 저장된 문자열이 있습니다.

이 변수를 사용하여 Perl의 grep을 사용하여 디렉토리에서이 패턴과 일치하는 파일을 찾습니다. 여기에 내가 뭐하는 거지입니다 :

opendir (DIR, "data/testroot/") or die "$!"; 
    @file1 = <$f1/*.hdf> 
    foreach(@file1){ 
     $patt = substr(basename($_),0,$ind); 
     $file2 = grep {/${patt}*\.hdf/} readdir(DIR); 
     #other code follows....... 
    } 
    closedir(DIR); 

첫째, 폴더 f1에있는 모든 파일의 목록을 얻을하고 배열 @file에 저장. 그런 다음 @file1의 각 항목에 대해 처음 몇자를 추출하여 $patt에 저장 한 다음 에 저장된 것과 일치하는 시작 패턴을 가진 다른 폴더 data/testroot/에서 비슷한 파일을 선택하려고합니다.

해당 grep $file2 = grep {/${patt}*\.hdf/} readdir(DIR);이 작동하지 않습니다.

Answer 1

${patt}*\.hdf은 "$ patt가 0 번 이상 발생하고 .hdf가 뒤따라야 함"을 의미합니다. "$ patt, 임의의 텍스트, .hdf"순 의미하지 않습니까?

그러면 /${patt}.*\.hdf/이됩니다.

Answer 2

디렉토리 B에있는 모든 파일의 파일 이름이 첫 번째 $ind 자와 일치하는 디렉토리 A에 모든 *.hdf 파일을 찾으려고합니다.

두 디렉터리 모두에 glob 또는 readdir 중 하나만 사용해야합니다. 둘 다 사용할 수는 없습니다. 이 경우 glob이 최선의 방법 인 것 같습니다. 정규식을 사용하지 않고도 *.hdf 개의 파일을 모두 선택할 수 있습니다.

아래 프로그램은 필요한 것을 수행하는 것으로 보입니다. $f1 및 $ind에 대한 샘플 값을 대체했습니다.

use strict; 
use warnings; 

use File::Basename; 

my $f1 = 'data'; 
my $f1 = 'data/testroot'; 
my $ind = 6; 

foreach (glob "$f1/*.hdf") { 
    my $patt = substr(basename($_), 0, $ind); 
    my @match = glob "$f2/$patt*.hdf"; 

    #other code follows....... 
}