파일 배열의 패턴과 일치하는 파일 찾기

Question

다음과 같이 perl 코드가 있습니다. 패턴과 일치하는 파일을 선택하려고 시도합니다.

opendir ERR_STAGING_DIR, "$ERR_STAGING" or die "$PID: Cannot open directory $ERR_STAGING"; 
@allfiles = grep !/^$ERR_STAGING\/\./, map "$ERR_STAGING/$_", readdir(ERR_STAGING_DIR); 
closedir(ERR_STAGING_DIR); 

$ERR_FILETYPE = basename ($ERR_FILETYPE); 

$ERR_FILETYPE =~ s/\./\\\./g; 
$ERR_FILETYPE =~ s/\*/\*/g; 

@file_type = grep /^$ERR_STAGING/./$ERR_FILETYPE$/, @allfiles; 
$numelements = @file_type; 
if ($numelements <= 0) { 
    print LOG "$PID: No files match specified pattern, exiting.\n"; 
    &HandlerDie($NO_FILE_TYPE, $current_poid); 
} 

여기 제가 위에서 설명합니다. grep ERR_STAGING 디렉토리의 모든 파일. grep 파일은 'BVN*.fin.bc_lerr.xml.bc'과 일치합니다 (예 : BVN_201608250000.fin.bc_lerr.xml.bc). 파일을 가지고 뭔가를하십시오. 그러나 위의 코드는 패턴과도 일치하지 않는 파일을 반환하고 있습니다. 또한 픽업 일부 임시 디렉토리입니다.

Answer 1

올바른 두 개의 행 :

$ERR_FILETYPE =~ s/\*/.\*/g;      # Add DOT 

@file_type = grep /\/$ERR_FILETYPE$/, @allfiles; # such a filter is sufficient 

Answer 2

나는 대안을 제시거야 - 당신이 패턴으로 'BVN*.fin.bc_lerr.xml.bc'을 언급.

하지만 정규 표현식이 아닙니다 (글쎄, 알았어.하지만 BVN 이후에 '0 이상'을 원하지 않는다고 확신합니다.). 그리고 당신은 그것을 정규 표현식으로 변환하려고 시도하는 것처럼 보입니다.

즉, 정규 표현식이 아닌 셸 glob를 실제로 찾고 있음을 의미합니다. 그들은 유사하지만 동일하지는 않습니다.

따라서 readdir 및 grep 대신 원하는 것을 glob으로 제안 할 수 있습니다.

다음을 수행 할 수 있습니다

my @files = glob ('/path/to/BVN*.fin.bc_lerr.xml.bc'); 

... 그리고 그게입니다. 그러면 쉘 로직이 아닌 정규식 로직을 사용하여 패턴을 확장 한 다음 /path/to을 읽어 해당 파일을 찾습니다. 그래서 예에서

:

my @files = glob ("$ERR_STAGING/$ERR_FILETYPE");