(Perl) Compress Large Binary File in Blocks

Compresses a large binary file in blocks. This example uses BeginCompressBytes, MoreCompressBytes, and EndCompressBytes.

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.

$facSrc = chilkat::CkFileAccess->new();
$facDest = chilkat::CkFileAccess->new();

# Open a large binary file for reading.
$success = $facSrc->OpenForRead("qa_data/bmp/big.bmp");
if ($success != 1) {
    print $facSrc->lastErrorText() . "\r\n";
    exit;
}

# If we compress in 64K chunks, find out how many blocks there will be.
$blockSize = 65536;
$numBlocks = $facSrc->GetNumBlocks($blockSize);

# Open an output file for the compressed data.
$success = $facDest->OpenForWrite("qa_data/bmp/compressedBmp.dat");
if ($success != 1) {
    print $facDest->lastErrorText() . "\r\n";
    exit;
}

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

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

$i = 0;
while ($i < $numBlocks) {
    $success = $facSrc->ReadBlock($i,$blockSize,$fileBytes);
    if ($i == 0) {
        $success = $compress->BeginCompressBytes($fileBytes,$compressedBytes);
    }
    else {
        $success = $compress->MoreCompressBytes($fileBytes,$compressedBytes);
    }

    $facDest->FileWrite($compressedBytes);

    $i = $i + 1;
}

# At the very end, flush any remaining compressed bytes, if any.
$success = $compress->EndCompressBytes($compressedBytes);
$facDest->FileWrite($compressedBytes);

$facSrc->FileClose();
$facDest->FileClose();

print "Finished compressing file." . "\r\n";