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

Question

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

########################
#   
use strict;
use warnings;
use Archive::Tar;
my $source_path='C:testHotfix.tar';
my $dest_path='C:testabc\';
my $tar=Archive::Tar->new();
$tar->read($source_path);
#$tar->extract();
$tar->extract($source_path, $dest_path );

如果我取消对#$tar->extract();的注释，上面的脚本就可以完美地工作。它将从我执行的位置提取到当前目录，但我的要求是提取到$dest_path。你能帮我哪里做错了吗？

Answer 1

Archive：：Tarextract不能以这种方式工作。在执行extract:之前，您可以将chdir更改为目标目录

use warnings;
use strict;
use Archive::Tar;
my $source_path = 'C:testHotfix.tar';
my $dest_path   = 'C:testabc\';
my $tar = Archive::Tar->new();
$tar->read($source_path);
chdir $dest_path;
$tar->extract();

Answer 2

我建议阅读Archive：：Tar的文档。extract()的文档是这样写的：

$tar->提取([@filename](

写入的文件的名称与@文件名到磁盘，根据需要创建子目录。这可能在VMS下工作不太好。在MacPerl下，文件的修改时间将被转换为MacOS的零时间，并且适当将对路径进行转换。但是不检查路径的元素是否长于MacOS目前允许(32个字符(。

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

所以它根本不支持您尝试使用的参数。它需要零或一个参数[注意：这是错误的。请参阅下面的更正]。如果不给它任何参数，它将提取所有文件。如果你给它一个参数，那么它应该是对文件名数组的引用——然后它会尝试从档案中提取这些文件。

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

更新：正如下面的评论中所提到的，看起来我误读了文档。文档中的[...]表示可选参数，而不是数组引用。

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

然而，我仍然正确地说，传递给extract()的最后一个参数从未被解释为提取的目的地。