(Perl) Gzip Compress In Memory and Base64 Encode

Demonstrates how to Gzip compress in-memory data and then encode the compressed data to base64.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

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

$gzip = chilkat::CkGzip->new();

# This example will load a file into the fileData object.
# Your application might load fileData from other sources..
$fileData = chilkat::CkBinData->new();
$success = $fileData->LoadFile("qa_data/xml/hamlet.xml");
if ($success != 1) {
    print "Failed to load file." . "\r\n";
    exit;
}

# In-place compress the contents of fileData
$success = $gzip->CompressBd($fileData);
if ($success != 1) {
    print $gzip->lastErrorText() . "\r\n";
    exit;
}

# Get the base64 encoded compressed data (in a single line).
$strBase64 = $fileData->getEncoded("base64");
print $strBase64 . "\r\n";
print "--------" . "\r\n";

# To get the base64 in multiple lines, as it might appear in MIME,
# use "base64-mime".
$strBase64MultiLine = $fileData->getEncoded("base64-mime");
print $strBase64MultiLine . "\r\n";