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.

Perl

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";