Unzip an AES Encrypted Text File directly into a String Variable

A common need is to unzip from an AES encrypted Zip archive directly into a string variable, such that the unencrypted file never resides on disk, even temporarily. This example shows how to do it.

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

#  This example opens a WinZip-compatible AES encrypted
#  .zip that contains a single file: hamlet.xml.

#  It decrypts and unzips hamlet.xml directly into a string
#  variable.
$zip->SetPassword("secret");
$success = $zip->OpenZip("hamlet.zip");
if ($success != 1) {
    print $zip->lastErrorText() . "\n";
    exit;
}

$entry = $zip->GetEntryByName("hamlet.xml");
if (!($entry eq null )) {
    $xmlText = $entry->inflateToString2();
    print $xmlText . "\r\n";

}
else {
    print "Failed to find entry in zip" . "\n";
}