(Perl) How to Add a Directory Path to Files when Zipping

Demonstrates how to add a directory path to files when zipping.

For example, if files are located in directory_name:

-directory_name
--123.txt
--321.txt

The need to to create a .zip with this directory structure:

-directory_name
--123.txt
--321.txt

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

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

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

# Intialize the zip object by calling NewZip.
$success = $zip->NewZip("qa_output/test.zip");

# Set a path prefix:
$zip->put_PathPrefix("directory_name/");

# Add references to files:
$recurse = 1;
$success = $zip->AppendFiles("c:/zipTest/directory_name/*",$recurse);
if ($success != 1) {
    print $zip->lastErrorText() . "\r\n";
    exit;
}

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

print "success." . "\r\n";