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

Posted 2023-03-15

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

【英文标题】：Not able to extract or untar file to Custom destination Directory

【发布时间】：2020-12-18 19:50:09

【问题描述】：

无法将静态 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。你能帮我看看我在哪里做错了吗？

【参考方案1】：

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

$tar->extract([@filenames])

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

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

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

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

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

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

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

【参考方案2】：

Archive::Tar extract 不能这样工作。您可以在执行extract 之前将chdir 进入目标目录：

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();

【讨论】：

非常感谢您的输入，上面的 chdir 命令帮助我实现了我正在寻找的解决方案