ASP教程 ASP.NET教程 PHP教程 JSP教程CGI/Perl教程 其他WEB语言 数据库编程 编程杂谈
返回首页
当前位置: 主页 > 网络编程 > CGI/Perl教程 >

用Perl动态建立ZIP压缩文件

时间:2009-04-26 15:49来源:csdn 作者:秩名 点击:
Perl提供大量处理不同文件格式的内置函数和外来模块。特别是,它可以通过Archive::Zip模块,动态建立和阅读ZIP压缩文件,而不必依赖外来工具和实用工具。本教程说明这个模块的基础理论和常用方法。 首先,在Perl提示符下运行以下命令下载并安装该模块(如果

Perl提供大量处理不同文件格式的内置函数和外来模块。特别是,它可以通过Archive::Zip模块,动态建立和阅读ZIP压缩文件,而不必依赖外来工具和实用工具。本教程说明这个模块的基础理论和常用方法。

首先,在Perl提示符下运行以下命令下载并安装该模块(如果你还没有安装它):

perl> perl -MCPAN -e "install Archive::Zip"

注意,Archive::Zip模块依靠zlib库运行,因此在安装过程中,系统可能要求你下载并安装这个库。

建立ZIP压缩文件

首先我们看一个简单的例子。动态建立一个包含几个其它文件的ZIP压缩文件。输入(或复制)如列表A所示的脚本:

列表A

以下为引用的内容:

#!/bin/perl

use Archive::Zip;# imports

$obj = Archive::Zip->new();# new instance

@files = ('mystuff/ad.gif',

'mystuff/alcon.doc',

'mystuff/alcon.xls');# files to store

foreach $file (@files) {

$obj->addFile($file);# add files

}

if ($obj->writeToFileNamed('dummy.zip') != AZ_OK) {# write to disk

print "Error in archive creation!";

} else {

print "Archive created successfully!";

}

这段脚本相当简单,但值得仔细看一看。第一步是输入Archive::Zip模块,并初始化Archive::Zip对象的一个实例。接下来,将所有文件清单以及它们在磁盘中的位置进行压缩,保存为一个Perl数组。要记住的是,脚本(准确地说,运行脚本的用户)必须拥有访问这些磁盘位置的许可,否则建立压缩文件的过程就会失败。

然后,用foreach()循环遍历这个数组,用对象的addFile()方法在压缩文件中增加列出的文件。一旦循环完成,则通过调用writeToFileNamed()方法把最终的压缩文件写入磁盘,writeToFileNamed()方法接受所建立的ZIP文件的完整路径和名称。记住,脚本必须拥有向指定的磁盘位置写入文件的许可;否则,writeToFileNamed()方法将会失败,因而不能建立压缩文件。

特别要注意调用writeToFileNamed():方法的返回值。如果文件被正确写入,Archive::Zip返回一个AZ_OK值,在往后操作前系统会检查这个值。之后在这个文件中你还会看到这个返回值。

要应用上面的脚本实例,请修改@files数组的内容以反映你的当地系统配置,并试图在命令提示符或浏览器中执行它。如果一切运行正常,这段脚本应该会找到并将所有文件读入一个叫做dummy.zip的文件中。

爱设计教学网(www.2sheji.com)——为您所需,替您所想!
顶一下
(0)
0%
踩一下
(0)
0%
------分隔线----------------------------
最新评论 查看所有评论
发表评论 查看所有评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
表情:
用户名: 密码: 验证码:
推荐内容