perl에서 와일드 카드 삭제

Question

저는 Perl에 익숙하지 않지만 다음과 같이 작동해야한다고 생각합니다. 나는

@mylist = ("${my_dir}AA_???_???.DAT", "${my_dir}AA???.DAT"); 

foreach my $list (@mylist) { 
    if (-e $list) { 
     system ("cp ${list} ${my_other_dir}"); 
    } 
} 

위의 코드 조각은 AA_???_???.DAT으로, 그 와일드 카드를 찾을 수 없습니다 더 큰 펄 스크립트의 다음 코드를 가지고 있지만 그것은 내가 시도 AA???.DAT

와일드 카드와 파일 이름을 찾을 수 않습니다 또한 파일을 삭제하면 AA??_???.DAT은

unlink(glob(${my_dir}AA_???_???.DAT")) 

으로 표시되지만 스크립트가 끊어집니다.

unlink(glob("${my_dir}AA???.DAT)) 

어떤 이유가 될 수 :하지만 AA???.DAT 사용과 일치하는 파일을 삭제할 수있다?

Answer 1

-e $list은 파일의 존재를 확인하므로 AA_???_???.DAT 또는 AA???.DAT에 대해 false를 반환합니다 (실제로 파일 이름이 정확히 지정되지 않은 경우). 하나가 작동하고 다른 하나는 그렇지 않은 것은 사실이 아닙니다.

unlink(glob(${my_dir}AA_???_???.DAT"))이 응답하지 않는 것도 사실입니다. 우선, 컴파일조차하지 않습니다. 디렉토리 재귀 파일에 대해

foreach my $list (@mylist) { 
    if (-e $list) { 
     system ("cp $some_dir/${list} ${my_other_dir}/"); 
    } 
} 

: 그럼 당신은 당신의 원본 코드에 연결할 수 있습니다

opendir(my $dh, $some_dir) || die "can't opendir $some_dir: $!"; 
@mylist = grep { /^(.AA_..._...\.DAT|AA...\.DAT)$/ && -f "$some_dir/$_" } readdir($dh); 
closedir $dh; 

:

Answer 2

나는 (문서의 예에서 수정)을 opendir 및 readdir 내장 함수를 사용합니다 operations File :: Find CPAN 모듈을 정말 사용하고 싶습니다. 이렇게하면 각 파일을 지정된 서브 루틴 으로 전달하는 하위 디렉터리를 통해 해당 파일을 처리합니다. 예를 들면 다음과 같습니다 :

#! /usr/bin/perl 

use strict; 
use warnings; 
use File::Find; 

my @dirs='/path/to/dir'; 
my $my_other_dir='/path/to/otherdir'; 

find(&process_files, @dirs); 

sub process_files { 
    my($file) = $_; 
    my($fullpath) = $File::Find::name; 

    return if($file !~ /^AA_..._...\.DAT$/ and 
     $file !~ /^AA...\.DAT$/); 

    system ("cp $fullpath $my_other_dir/"); 
}