用Perl动态建立ZIP压缩文件_

1、用Perl动态建立ZIP压缩文件_ Perl供应大量处理不同文件格式的内置函数和外来模块。格外是，它可以通过Archive:Zip模块，动态建立和阅读ZIP压缩文件，而不必依靠外来工具和有用工具。本教程说明这个模块的基础理论和常用方法。 首先，在Perl提示符下运行以下指令下载并安装该模块（假如你还没有安装它）： perl perl -MCPAN -e install Archive:Zip 留意，Archive:Zip模块依靠zlib库运行，因此在安装过程中，系统可能要求你下载并安装这个库。 建立ZIP压缩文件 首先我们看一个简洁的例子。动态建立一个包含几个其它文件的ZIP压缩文件。输入（或

2、复制）如列表A所示的脚本： 列表A 这段脚本相当简洁，但值得认真看一看。第一步是输入Archive:Zip模块，并初始化Archive:Zip对象的一个实例。接下来，将全部文件清单以及它们在磁盘中的位置进行压缩，保存为一个Perl数组。要记住的是，脚本（精准地说，运行脚本的用户）必需拥有访问这些磁盘位置的许可，否则建立压缩文件的过程就会失败。 然后，用foreach()循环遍历这个数组，用对象的addFile()方法在压缩文件中增加列出的文件。一旦循环完成，则通过调用writeToFileNamed()方法把最终的压缩文件写入磁盘，writeToFileNamed()方法接受所建立的ZIP文件

3、的完整路径和名称。记住，脚本必需拥有向指定的磁盘位置写入文件的许可；否则，writeToFileNamed()方法将会失败，因而不能建立压缩文件。 格外要留意调用writeToFileNamed():方法的返回值。假如文件被正确写入，Archive:Zip返回一个AZ_OK值，在往后操作前系统会检查这个值。之后在这个文件中你还会看到这个返回值。 要应用上面的脚本实例，请修改files数组的内容以反映你的当地系统配置，并试图在指令提示符或扫瞄器中执行它。假如一切运行正常，这段脚本应当会找到并将全部文件读入一个叫做dummy.zip的文件中。 查看ZIP压缩文件内容 如何查看一个现有的压缩文件呢？

4、Archive:Zip带有一个read()方法，可以阅读一个压缩文件的内容，并可访问与单个文件有关的具体信息。列表B是它的一个应用实例： 列表B 这里，read()方法用于阅读ZIP压缩文件并获得与其内容有关的信息。然后，调用members()方法返回一个结构化对象数组，每个数组元素代表压缩文件中的一个单独文件。通常来说，数组中的每个对象包含相应文件的名称信息、它的许可模式、状态、压缩类型、大小以及最终一次修改时间。我们可以用一个循环便利地供应这些信息，并对它们重新格式化，使它更具可读性，如上面的列表B所示。 以下是一个输出结果样本： mystuff/ad.gif, 1447:345 myst

5、uff/alcon.doc, 200:34 mystuff/alcon.xls, 28580:21483 在现有ZIP压缩文件中插入文件 假如你已经有一个ZIP压缩文件，只需要往其中增加一个新文件，那么操作过程就相当简洁：只要调用addFile()方法，增加文件的名称和路径即可。为说明这一点，我们回到dummy.zip文件，并试图给它增加一些新文件。（列表C） 列表C 在一个现有压缩文件中插入一个文件的过程与建立一个新压缩文件特别相像：首先初始化一个新的Archive:Zip对象，在其中读入原始的压缩文件，再建立一个包含增加文件清单的数组，并把这个数组提交给循环中的addFile()方法。胜利

6、添加文件后，就可以用overwrite()方法用更新后的压缩文件掩盖原始的压缩文件。 从现有的ZIP压缩文件中提取文件 往压缩文件中添加文件后，如何将它们提取出来呢？很明显，用法extractTree()方法！这个方法允许你把现有压缩文件中的全部文件提取到一个指定的名目中，如列表D所示： 列表D 在上例中，extractTree()方法解压整个压缩文件，将其中的全部文件提取到一个指定名目中。假如这个名目不存在，extractTree()方法将自动建立这个名目；当然，这以脚本获得写磁盘的许可为前提。 好玩的是，你还可以进行更具选择性的提取操作，只提取与一个预先定义的列表相匹配的文件。要完成这个任务，你需要用法extractMember()方法，它逐个提取压缩文件，关心你安置一个中间过滤器或在连续提取前执行检查。在模块文档中可以找相关实例。 敏捷性 如上面的例子所示，Perl的Arc