Perl

Decompress Gzip Data In-Place Using BinData

See more Gzip Examples

This example demonstrates how to use the UncompressBd method to decompress Gzip data stored in a BinData object.

The compressed .gz file is first loaded into memory. The UncompressBd method then decompresses the data in-place, meaning the original compressed bytes in the BinData object are replaced with the uncompressed data.

After decompression, the example writes the resulting data to a file. This approach is useful when working entirely in memory before saving or further processing the uncompressed data.

Perl

use chilkat();

$success = 0;

# This example demonstrates how to decompress Gzip data stored in a BinData object.
# The decompression is done in-place, replacing the compressed data with the original data.

$gzip = chilkat::CkGzip->new();
$bd = chilkat::CkBinData->new();

# Load a .gz file into BinData:
$success = $bd->LoadFile("example.txt.gz");
if ($success == 0) {
    print $bd->lastErrorText() . "\r\n";
    exit;
}

print "Compressed size (bytes): " . $bd->get_NumBytes() . "\r\n";

# Uncompress the data in-place:
$success = $gzip->UncompressBd($bd);
if ($success == 0) {
    print $gzip->lastErrorText() . "\r\n";
    exit;
}

print "Decompressed size (bytes): " . $bd->get_NumBytes() . "\r\n";

# Save the uncompressed data to a file:
$success = $bd->WriteFile("example.txt");
if ($success == 0) {
    print $bd->lastErrorText() . "\r\n";
    exit;
}

print "File successfully uncompressed to example.txt" . "\r\n";