Zip a Directory Tree

Perl script to create a .zip file by recursively descending a directory tree and adding all files/directories.

Download Perl Programming Example Scripts

# file: ZipExample1.pl

# Simple example showing how to zip a directory tree.

use chilkat;

$zip = new chilkat::CkZip();
$zip->UnlockComponent("anything for 30-day trial");

$zip->NewZip("exampleData.zip");
$zip->AppendFiles("exampleData/*",true);
$zip->WriteZip();