将 tar 文件归档到 Perl 中的不同位置

Question

我正在读取一个包含一些存档文件的目录，并将存档文件一一解压缩。

一切看起来都很好，但是文件在具有运行子模块的主 Perl 代码模块的文件夹中被解压缩。

我希望在我指定的文件夹中生成存档。

这是我的代码：

sub ExtractFile
{

 #Read the folder which was copied in the output path recursively and extract if any file is compressed
 my $dirpath = $_[0];

 opendir(D, "$dirpath") || die "Can't open dir $dirpath: $!\n";
 my @list = readdir(D);
 closedir(D);


 foreach my $f (@list) 
 {
  print " \$f = $f";
  if(-f $dirpath."/$f")
  {
   #print " File in  directory $dirpath \n ";#is \$f = $f\n";

   my($file_name, $file_dirname,$filetype)= fileparse($f,qr{\..*});

   #print " \nThe file extension is $filetype";
   #print " \nThe file name is is $file_name";


   # If compressed file then extract the file
   if($filetype eq ".tar" or $filetype eq ".tzr.gz")
   {

    my $arch_file = $dirpath."/$f";
    print "\n file to be extracted is $arch_file";
    my $tar = Archive::Tar->new($arch_file);
    #$tar->extract() or die ("Cannot extract file $arch_file");

    #mkdir($dirpath."/$file_name");
    $tar->extract_file($arch_file,$dirpath."/$file_name" ) or die ("Cannot extract file $arch_file");
   }

  }
  if(-d $dirpath."/$f")
  {
   if($f eq "." or $f eq "..")
   { next; }
   print " Directory\n";# is $f";
   ExtractFile($dirpath."/$f");
  }

 }


}

递归调用 ExtractFile 方法来循环所有档案。 当使用 $tar->extract() 时，它会在调用此方法的文件夹中解压缩。

当我使用 $tar->extract_file($arch_file,$dirpath."/$file_name") 时出现错误：

存档中没有这样的文件：'/home/fsang/dante/workspace/output/s.tar'位于 /home/fsang/dante/lib/Extraction.pm 第 80 行

请帮忙 我已经检查了路径和输入输出没有与它有关的问题。

似乎有一些我不知道的 $tar->extract_file() 使用问题。

非常感谢任何解决这个问题的人。

问候， 萨克希

Answer 1

拼写错误？

$tar->extract_file($arch_file,$dirpath."/$file_name" ) 

可能应该是

$tar->extract_file($arch_file,$dirpath."/".$file_name) 

Answer 2

$tarFile = "test.tar.gz";
$myTar = Archive::Tar->new($tarFile);
foreach my $member ($myTar->list_files())
{
    my $res = $myTar->extract_file( $member , 'C:/temp/'.$member );
    print "Exract error!\n" unless ($res);
}

Answer 3

我看到一把枪被带到瑞士军刀战斗中。
这是一个 *nix 单行代码，可以满足您的要求：

find /source/dir -name "*.tar" -exec tar -C /target/dir -xvzf '{}' \; -print

是否需要为此编写一个脚本？
除了调试行之外，您不必做任何特殊的事情。

Answer 4

您误解了 extract_file。第一个参数是要提取的存档内的文件的名称。您正在传递存档本身的路径。您将其传递给 new；你不需要再次传递它。正如错误消息所解释的，s.tar 不包含名为 /home/fsang/dante/workspace/output/s.tar 的文件，因此 extract_file< /代码> 失败。

您可以使用 $tar->list_files 获取存档中的文件列表。

一个更简单的解决方案可能是临时 chdir 到要将存档提取到的目录。 File::pushd 提供了一种简单的方法来做到这一点。