(Perl) Extract a Single ZIP Entry While Preserving Its Stored Path

See more Zip Examples

This example demonstrates how to use the ZipEntry.Extract method to extract a single entry from a ZIP archive.

The example first creates a ZIP archive containing a text file. It then re-opens the ZIP, finds the entry, and extracts it to a base directory.

The Extract method uses the relative path stored within the ZIP entry. Any required subdirectories are created automatically beneath the specified base directory.

Note: This example requires Chilkat v11.0.0 or greater.

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

use chilkat();

$success = 0;

# ------------------------------------------------------------
# First create a sample ZIP archive containing a small text file.

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

$success = $zip->NewZip("c:/temp/sampleText.zip");
if ($success == 0) {
    print $zip->lastErrorText() . "\r\n";
    exit;
}

# Add a small text file from memory.
$success = $zip->AddString("myApp/docs/hello.txt","Hello from a ZIP entry!","utf-8");
if ($success == 0) {
    print $zip->lastErrorText() . "\r\n";
    exit;
}

# Write the ZIP archive to disk and close it.
$success = $zip->WriteZipAndClose();
if ($success == 0) {
    print $zip->lastErrorText() . "\r\n";
    exit;
}

# ------------------------------------------------------------
# Now open the ZIP archive we just created.

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

$success = $zip2->OpenZip("c:/temp/sampleText.zip");
if ($success == 0) {
    print $zip2->lastErrorText() . "\r\n";
    exit;
}

# Find the entry by its stored ZIP path.
$entry = chilkat::CkZipEntry->new();

$success = $zip2->EntryOf("myApp/docs/hello.txt",$entry);

if ($success == 0) {
    print "Entry not found." . "\r\n";
    exit;
}

# Extract this single entry to the base directory:
# 
#     c:/temp/extracted
# 
# Because the entry's stored path is:
# 
#     myApp/docs/hello.txt
# 
# the file will be extracted to:
# 
#     qa_output/extracted/myApp/docs/hello.txt
# 
# The required subdirectories are created automatically.
$success = $entry->Extract("c:/temp/extracted");
if ($success == 0) {
    print $entry->lastErrorText() . "\r\n";
    exit;
}

$zip2->CloseZip();

print "Entry extracted successfully." . "\r\n";