Perl

Unzip Text File to String

See more Zip Examples

Demonstrates how to open a .zip and extract the 1st file (assuming it's a text file) to a string variable. Perl

use chilkat();

$success = 0;

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

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

$success = $zip->OpenZip("qa_data/zips/EC16100.zip");
if ($success == 0) {
    print $zip->lastErrorText() . "\r\n";
    exit;
}

# Get the 1st file in the .zip
$entry = chilkat::CkZipEntry->new();
$success = $zip->EntryAt(0,$entry);
if ($success == 0) {
    print $zip->lastErrorText() . "\r\n";
    exit;
}

$fileContents = $entry->unzipToString(0,"utf-8");
print $fileContents . "\r\n";