任何人都可以帮我从两个同名文件中创建一个 zip 文件。这是为了测试目的之一。如果您有任何与 a.txt 和 a.txt 等文件内容相同的 zip 文件,请告诉我。非常感谢任何帮助。
问问题
360 次
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 回答