Perl

Compress String Feed to Base64

See more Compression Examples

This example receives incoming text data in chunks, compresses as a stream, and accumulates the compressed data in base64. Perl

use chilkat();

$success = 0;

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

$sbCompressedBase64 = chilkat::CkStringBuilder->new();

$compress = chilkat::CkCompression->new();
$compress->put_Algorithm("deflate");
$compress->put_Charset("utf-8");
$compress->put_EncodingMode("base64");

$compress->put_FirstChunk(1);
$compress->put_LastChunk(0);

$bdCompressed = chilkat::CkBinData->new();
$sbUncompressedChunk = chilkat::CkStringBuilder->new();

for ($i = 0; $i <= 24; $i++) {
    if ($i == 24) {
        $compress->put_LastChunk(1);
    }

    $sbUncompressedChunk->Clear();
    $sbUncompressedChunk->AppendInt($i);
    $sbUncompressedChunk->Append(": This is a line of data to be compressed...\r\n");

    $compress->CompressSb($sbUncompressedChunk,$bdCompressed);

    $compress->put_FirstChunk(0);
}

print "The base64 encoded compressed text:" . "\r\n";
print $bdCompressed->getEncoded("base64") . "\r\n";

# Decompress in one call:
$originalText = $compress->decompressStringENC($bdCompressed->getEncoded("base64"));
print $originalText . "\r\n";