perl動態建立zip壓縮檔案

原文：

perl提供大量處理不同檔案格式的內建函式和外來模組。特別是，它可以通過archive::zip模組，動態建立和閱讀zip壓縮檔案，而不必依賴外來工具和實用工具。本教程說明這個模組的基礎理論和常用方法。

perl> perl -mcpan -e "install archive::zip"

建立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) else else else else else {

$obj->extracttree(undef, "/tmp/");# extract files

在上例中，extracttree()方法解壓整個壓縮檔案，將其中的所有檔案提取到乙個指定目錄中。如果這個目錄不存在，extracttree()方法將自動建立這個目錄；當然，這以指令碼獲得寫磁碟的許可為前提。

有趣的是，你還可以進行更具選擇性的提取操作，只提取與乙個預先定義的列表相匹配的檔案。要完成這個任務，你需要使用extractmember()方法，它逐個提取壓縮檔案，幫助你安置乙個中間過濾器或在繼續提取前執行檢查。在模組文件中可以找相關例項。

靈活性

如上面的例子所示，perl的archive::zip類的功能相當強大，為你處理zip壓縮檔案提供很大的靈活性。希望上面的指令碼樣本提起你的興趣，讓你開始自己應用這個類，更一步了解它的執行機制。祝程式設計快樂！