(Perl) Compress Text Feed to Binary

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

The purpose is to demonstrate the BeginCompressString, MoreCompressString, and EndCompressString methods.

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

use chilkat();

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

$compressedData = chilkat::CkBinData->new();
$compressedBytes = chilkat::CkByteData->new();

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

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

for ($i = 0; $i <= 24; $i++) {
    # Note: It is possible (and normal) for a BeginCompress* or MoreCompress* method to return
    # an empty string (or 0 bytes).  When this happens, the input data is not lost.  It will be flushed
    # in a subsequent call.
    $sbIndex->Clear();
    $sbIndex->AppendInt($i);
    if ($i == 0) {
        $success = $compress->BeginCompressString($sbIndex->getAsString(),$compressedBytes);
    }
    else {
        $success = $compress->MoreCompressString($sbIndex->getAsString(),$compressedBytes);
    }

    $compressedData->AppendBinary($compressedBytes);
    $success = $compress->MoreCompressString(": This is a line of data to be compressed...\r\n",$compressedBytes);
    $compressedData->AppendBinary($compressedBytes);
}

# Flush any remaining output.
$success = $compress->EndCompressString($compressedBytes);
$compressedData->AppendBinary($compressedBytes);

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

# Now decompress in one call:
$success = $compressedData->GetBinary($compressedBytes);
$originalText = $compress->decompressString($compressedBytes);
print $originalText . "\r\n";