Perl

Compress Text Feed to Binary

See more Compression Examples

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

use chilkat();

$success = 0;

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

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

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

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

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

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

# Show the compressed data in hex format:
print "The hex encoded compressed text:" . "\r\n";
print $bdCompressed->getEncoded("hex") . "\r\n";

# Now decompress in one call.  It is important to set both FirstChunk and LastChunk = 1
$bdDecompressed = chilkat::CkBinData->new();
$compress->put_FirstChunk(1);
$compress->put_LastChunk(1);
$success = $compress->DecompressBd2($bdCompressed,$bdDecompressed);
if ($success == 0) {
    print $compress->lastErrorText() . "\r\n";
    exit;
}

$originalText = $bdDecompressed->getString("utf-8");
print $originalText . "\r\n";