perl - 如何创建一个包含多个同名文件的 zip 文件

Question

任何人都可以帮我从两个同名文件中创建一个 zip 文件。这是为了测试目的之一。如果您有任何与 a.txt 和 a.txt 等文件内容相同的 zip 文件，请告诉我。非常感谢任何帮助。

Answer 1

这实际上很容易使用Archive::Zip。

my $zip = Archive::Zip->new;
$zip->addString("test one", "a.txt");
$zip->addString("test two", "a.txt");
$zip->writeToFileNamed("test.zip");

尝试使用标准解压缩工具提取它时，没有什么有趣的事情发生：

$ unzip test.zip
Archive:  test.zip
 extracting: a.txt
replace a.txt? [y]es, [n]o, [A]ll, [N]one, [r]ename: y
 extracting: a.txt

如果您更喜欢稍微有趣的内容，当然可以使用该addFile方法而不是addString.