如何在Perl中创建Zip存档？

在Perl中创建Zip存档，可以使用Archive::Zip模块。以下是一个简单的示例代码：

use strict;
use warnings;
use Archive::Zip;

# 创建一个新的Zip存档对象
my $zip = Archive::Zip->new();

# 添加文件到Zip存档
$zip->addFile('file1.txt');
$zip->addFile('file2.txt');

# 保存Zip存档
$zip->writeToFileNamed('output.zip');

在这个示例中，我们首先导入了Archive::Zip模块，然后创建了一个新的Zip存档对象。接下来，我们使用addFile方法将两个文件添加到Zip存档中。最后，我们使用writeToFileNamed方法将Zip存档保存到文件系统中。

需要注意的是，在使用Archive::Zip模块之前，需要先安装它。可以使用以下命令进行安装：

cpan install Archive::Zip

此外，Archive::Zip模块还提供了许多其他方法，可以用于操作Zip存档，例如删除文件、修改文件名、添加目录等等。更多信息可以参考Archive::Zip模块的官方文档。