如何使用Perl在ZIP文件中存储符号链接？

Question

我正在使用Archive::Zip，我想添加符号链接到我正在创建的存档。不知怎的，我看不出怎么做。

在提取ZIP文件时，Archive::Zip确实识别出包含的符号链接。但是有写API吗？

也许可以通过创建Archive::Zip::Member并设置（内部？外部？）属性来完成某些事情？如果是这样，我不明白。

Answer 1

围绕源代码，似乎诀窍是创建一个成员对象，并设置正确的属性，如下所示：

my $zip = Archive::Zip->new();
my $member = $zip->addString( 'plain-file', 'symlink-pointing-to-plain-file' );
$member->{'externalFileAttributes'} = 0xA1FF0000;

我从添加文件的代码中获得了这个，并检测到它是一个符号链接。我们希望没有任何边缘案例......