0

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

4

1 回答 1

2

这实际上很容易使用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.

于 2013-09-11T03:35:52.933 回答