Perl

Gzip Compress In Memory and Base64 Encode

See more Gzip Examples

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

use strict;
use warnings;
use Chilkat2;

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

my $gzip = Chilkat2::Gzip->new;

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

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

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

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