Perl을 사용하여 거대한 아카이브에서 단일 파일 압축 해제

Question

큰 ".tgz"파일에서 하나의 파일을 추출하려고합니다. 나는 Archive::Tar::Streamed 모듈을 사용하고 있습니다.

다음은 샘플 코드입니다.

my $tar2 = Archive::Tar::Streamed->new($filename); 
$fil = $tar2->next; 
while($fil) { 
    $_ = $fil->name; 
    if(m/abc\.txt/g) { 
     $fil->extract($outpath); 
     $fil = $tar2->next; 
    } 
} 

그러나 이터레이터가 작동하지 않습니다. 다음 파일로 이동하지 않는 아카이브의 첫 번째 파일을 반복하고 있습니다. 누군가 내가 여기에서 한 실수를 말해 줄 수 있습니까 ???

Answer 1

if 안에 next으로 전화를 걸면 파일을 추출한 경우에만 실행됩니다. 파일이 추출되지 않으면 루프 내에 $fil을 수정하는 것은 없습니다.

while 루프의 조건에서 반복기를 호출하면 코드를 간소화 할 수 있습니다. 또한 $_에 이름을 저장하는 대신 =~ binding operator을 사용할 수 있습니다. 그리고 당신은 하지 않습니다./g 정규식 수정자를 원합니다. 스칼라 컨텍스트에서는 /g을 사용하여 문자열에서 여러 일치를 반복합니다. 여기서 원하는 것은 문자열에 일치하는 항목이 있는지 여부를 확인하는 것입니다.

my $tar2 = Archive::Tar::Streamed->new($filename); 
while(my $fil = $tar2->next) { 
    if($fil->name =~ m/abc\.txt/) { 
     $fil->extract($outpath); 
    } 
}