Perl

Create Zip Excluding Files Matching Patterns

See more Zip Examples

How to create a .zip archive excluding (skipping) files that match a set of wildcarded patterns. Perl

use chilkat();

$success = 0;

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

$zip = chilkat::CkZip->new();

$success = $zip->NewZip("test.zip");
if ($success != 1) {
    print $zip->lastErrorText() . "\r\n";
    exit;
}

# Create a string array object with our set of filename patterns
# to be excluded:
$sa = chilkat::CkStringArray->new();
$success = $sa->Append("*.bak");
$success = $sa->Append("*.tmp");

# Tell the zip object to use these exclusions:
$zip->SetExclusions($sa);

# Append a directory tree.  The AppendFiles does
# not read the file contents or append them to the zip
# object in memory.  It simply appends references
# to the files so that when WriteZip (or WriteZipAndClose,
# or WriteExe, etc.) is called, the files are compressed
# and encrypted.
$recurse = 1;
$success = $zip->AppendFiles("/temp/a/*",$recurse);

$success = $zip->WriteZipAndClose();
if ($success != 1) {
    print $zip->lastErrorText() . "\r\n";
    exit;
}

print "Zip Created!" . "\r\n";