Perl Requires Chilkat v11.0.0+

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.

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

my $zip = Chilkat2::Zip->new;

my $success = $zip->NewZip('c:/temp/sampleText.zip');
if (!$success) {
    print $zip->LastErrorText, "\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) {
    print $zip->LastErrorText, "\n";
    exit;
}

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

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

my $zip2 = Chilkat2::Zip->new;

$success = $zip2->OpenZip('c:/temp/sampleText.zip');
if (!$success) {
    print $zip2->LastErrorText, "\n";
    exit;
}

# Find the entry by its stored ZIP path.
my $entry = Chilkat2::ZipEntry->new;

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

if (!$success) {
    print "Entry not found.\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) {
    print $entry->LastErrorText, "\n";
    exit;
}

$zip2->CloseZip();

print "Entry extracted successfully.\n";