如何使用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;

我是从添加文件并检测到它是符号链接的代码中得到的。 我们希望没有任何极端情况...