Question

无法将静态tar文件提取到自定义目标目录：

########################
#   
use strict;
use warnings;
use Archive::Tar;

my $source_path='C:\test\Hotfix.tar';
my $dest_path='C:\test\abc\\';
my $tar=Archive::Tar->new();

$tar->read($source_path);
#$tar->extract();

$tar->extract($source_path, $dest_path );

如果我取消注释#$tar->extract();，上面的脚本将非常有用。它将提取到我正在执行的位置的当前目录，但是我的要求是提取到$dest_path。您能在我做错事情的地方帮我吗？

Answer 1

Archive::Tar extract不能那样工作。您可以chdir进入目标目录，然后执行extract：

use warnings;
use strict;
use Archive::Tar;

my $source_path = 'C:\test\Hotfix.tar';
my $dest_path   = 'C:\test\abc\\';
my $tar = Archive::Tar->new();
$tar->read($source_path);
chdir $dest_path;
$tar->extract();

Answer 2

我建议阅读Archive::Tar的文档。 extract()的文档说：

$ tar->提取（[@文件名]）

写入名称与其中任何名称相同的文件 @filenames到磁盘，并根据需要创建子目录。这有可能在VMS下不能很好地工作。在MacPerl下，文件的修改时间将零时间转换为MacOS，并且适当转换将完成到路径。但是，每个的长度不检查路径的元素以查看它是否长于 MacOS当前允许（32个字符）。

如果在没有文件名列表的情况下调用了extract，则整个内容存档的内容被提取。

因此它根本不支持您要使用的参数。它期望零或一个参数[注意：这是错误的。请参阅下面的更正]。如果不提供任何参数，它将提取所有文件。如果给它一个参数，则该参数应该是对文件名数组的引用-然后它将尝试从存档中提取这些文件。

我怀疑您对extract_file()的参数感到困惑。这需要一个可选的第二个参数，该参数可用于指定提取文件的名称。

更新：如下面的评论中所述，我似乎误读了文档。文档中的[...]表示可选参数，而不是数组引用。

实际上，extract()使用任意数量的参数。如果将零参数传递给它，它将从存档中提取所有文件。您提供的任何参数都将用作文件名，它将从存档中提取这些文件。

但是，我仍然正确地说，传递给extract()的最后一个参数永远不会解释为提取的目的地。

无法将文件解压缩或解压缩到“自定义目标目录”

2 个答案: