Unzip a Single File by Index

Unzip a single file by index.

 Chilkat Perl Module Downloads for Windows, Linux, and MAC OS X

use chilkat();

$zip = new chilkat::CkZip();

#  Any string unlocks the component for the 1st 30-days.
$success = $zip->UnlockComponent("Anything for 30-day trial");
if ($success != 1) {
    print $zip->lastErrorText() . "\n";
    exit;
}

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

#  How many files and directory entries are in this .zip?

$n = $zip->get_NumEntries();
print "Num entries = " . $n . "\r\n";

#  Let's say we want to unzip the 3rd entry:

$entry = $zip->GetEntryByIndex(2);
if ($entry eq null ) {
    print "Index out of range!" . "\n";
    exit;
}
else {
    #  Unzip it to C:/myTempDir
    $success = $entry->ExtractInto("c:/myTempDir");
    if ($success != 1) {
        print $entry->lastErrorText() . "\n";
        exit;
    }
    else {
        print "Extracted 1 file!" . "\n";
    }

}