Perl Archive :: Tarルートディレクトリを除外する方法

Question

d:\workディレクトリにある.tgzファイル（ディレクトリツリー/ファイルを含む）を抽出し、変更して再パックする必要があります。 .tgz番目のファイル \フォルダ123a、多くのサブフォルダが含まれているので、 は、抽出されたフォルダには、（D:\work\123a\...のようになります は、今私はArchive::Tarを使用して再帰的にパックしようとしましたが、問題は「仕事」フォルダも圧縮されている - 。。だから、意志この「作品」フォルダ（CWDまたはルートディレクトリ）を除外するためにどのように\work\123a\... こと すべてのヘルプは高く評価され 私のコード：。。

my $tar = Archive::Tar->new;   
    $tar->read("$tgzfiles[0]"); 
    $tar->extract(); 
    (my $tgzfolder = $tgzfiles[0]) =~ s/\.[^.]+$//;  

     # Here I make some changes in content{.....} 

    our $arc = Archive::Tar->new(); 
    find(\&archiveit, "d:/work/$tgzfolder"); 
    $arc->write("$tgzfiles[0]", 9); 


    sub archiveit { 
      $arc->add_files($File::Find::name); 

    } 

Answer 1

私のために、次の作品の初期test.tgzは、ホームフォルダにあります。 。

作業ディレクトリに切り替えるのにchdirを使用しましたが、no_chdirオプションをwanted機能に追加する必要があり、ディレクトリをサブディレクトリに変更しないようにしました。

また、$ tgzfolderは、抽出されたファイルへのパスである必要があります。そのため、名前からではなくアーカイブの内容から抽出する必要があります。

#!/usr/bin/perl 
use warnings; 
use strict; 

use Archive::Tar; 
use File::Find; 

my @tgzfiles = "$ENV{HOME}/test.tgz"; 

chdir 'd:/work'; 

my $tar = 'Archive::Tar'->new; 
$tar->read($tgzfiles[0]); 
$tar->extract; 

# Modify the contents. 

my $tgzfolder = ($tar->list_files)[0]; 

my $arc = 'Archive::Tar'->new; 
find({wanted => sub { $arc->add_files($File::Find::name) }, 
     no_chdir => 1}, 
    $tgzfolder); 
$arc->write($tgzfiles[0], 9);