(Perl) 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 Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

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

# 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("qa_data/hamlet.zip");
if ($success != 1) {
    print $zip->lastErrorText() . "\r\n";
    exit;
}

# entry is a ZipEntry
$entry = $zip->GetEntryByName("hamlet.xml");
if ($zip->get_LastMethodSuccess() == 0) {
    print "Failed to find entry in zip" . "\r\n";
    exit;
}

# lineEndingBehavior:
# 0 = leave unchanged.
# 1 = convert all to bare LF's
# 2 = convert all to CRLF's
$lineEndingBehavior = 0;
$srcCharset = "utf-8";
$xmlText = $entry->unzipToString($lineEndingBehavior,$srcCharset);
print $xmlText . "\r\n";