Unzip Encrypted Text into a String Variable

Demonstrates how to open an encrypted .zip archive and unzip a text file directly into a string variable.

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

#  Set the password required for decrypting.
$zip->put_DecryptPassword("myPassword");

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

#  Locate the file within the Zip to be unzipped into a string variable:

# entry is a CkZipEntry
$entry = $zip->FirstMatchingEntry("*.csv");
if (!($entry eq null )) {

    #  There are a few different InflateToString methods.
    #  InflateToString allows you to control line-endings LF-only vs. CRLF
    #  InflateToString2 returns the line-endings unmodified.
    #  Both InflateToString and InflateToString2 assume the
    #  data consists of ANSI characters.
    #  The InflateToString3 method allows for text stored in different
    #  character encodings to be returned as a string

    #  This example uses InflateToString2 -- line endings are
    #  unmodified and the text is simple ANSI...

    $strCsv = $entry->inflateToString2();
    print $strCsv . "\r\n";

}
else {
    print "No matching entry found!" . "\r\n";
}