以下是一个输出结果样本：
mystuff/ad.gif, 1447:345
mystuff/alcon.doc, 200:34
mystuff/alcon.xls, 28580:21483
…
在现有ZIP压缩文件中插入文件
假如你已经有一个ZIP压缩文件，只需要往其中增加一个新文件，那么操作过程就相当简单：只要调用addFile()方法，增加文件的名称和路径即可。为说明这一点，我们回到dummy.zip文件，并试图给它增加一些新文件。（列表C）
列表C
#!/bin/perl
use Archive::Zip;# imports
$obj = Archive::Zip->new();# new instance
$status = $obj->read('dummy.zip');# read file contents
if ($status != AZ_OK) {
die('Error in file!');
} else {
@files = ('otherstuff/logo.gif',# files to add
'otherstuff/header.gif',
'morestuff/berlin-bear.psd');
foreach $file (@files) {
$obj->addFile($file);# add files
}
if ($obj->overwrite() != AZ_OK) {# overwrite archive with new contents
print "Error in archive creation!";
} else {
print "Archive created successfully!";
}
}
在一个现有压缩文件中插入一个文件的过程与建立一个新压缩文件非常相似：首先初始化一个新的Archive::Zip对象，在其中读入原始的压缩文件，再建立一个包含增加文件清单的数组，并把这个数组提交给循环中的addFile()方法。成功添加文件后，就可以用overwrite()方法用更新后的压缩文件覆盖原始的压缩文件。
从现有的ZIP压缩文件中提取文件
往压缩文件中添加文件后，如何将它们提取出来呢？很明显，使用extractTree()方法！这个方法答应你把现有压缩文件中的所有文件提取到一个指定的目录中，如列表D所示：
列表D
#!/bin/perl
use Archive::Zip;# imports
$obj = Archive::Zip->new();# new instance
$status = $obj->read('dummy.zip');# read file contents
if ($status != AZ_OK) {
die('Error in file!');
} else {
$obj->extractTree(undef, "/tmp/");# extract files
}
在上例中，extractTree()方法解压整个压缩文件，将其中的所有文件提取到一个指定目录中。假如这个目录不存在，extractTree()方法将自动建立这个目录；当然，这以脚本获得写磁盘的许可为前提。
有趣的是，你还可以进行更具选择性的提取操作，只提取与一个预先定义的列表相匹配的文件。要完成这个任务，你需要使用extractMember()方法，它逐个提取压缩文件，帮助你安置一个中间过滤器或在继续提取前执行检查。在模块文档中可以找相关实例。
灵活性
如上面的例子所示，Perl的Archive::Zip类的功能相当强大，为你处理ZIP压缩文件提供很大的灵活性。希望上面的脚本样本提起你的爱好，让你开始自己应用这个类，更一步了解它的运行机制。祝编程快乐！
评论加载中…
 |