Perl Requires Chilkat v11.0.0+

Compress Large Binary File in Blocks

See more Compression Examples

Compresses a large binary file in blocks. Perl

use chilkat();

$success = 0;

#  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 == 0) {
    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("c:/temp/qa_output/compressedBmp.dat");
if ($success == 0) {
    print $facDest->lastErrorText() . "\r\n";
    exit;
}

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

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

#  Assuming numBlocks > 1
$compress->put_FirstChunk(1);
$compress->put_LastChunk(0);

$i = 0;
while ($i < $numBlocks) {
    $success = $facSrc->ReadBlock($i,$blockSize,$fileBytes);
    $success = $compress->CompressBytes($fileBytes,$compressedBytes);

    $facDest->FileWrite($compressedBytes);

    $i = $i + 1;

    $compress->put_FirstChunk(0);
    if ($i == ($numBlocks - 1)) {
        $compress->put_LastChunk(1);
    }

}

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

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