Perl

Ungzip Base64 String

See more Gzip Examples

Suppose you have a gzip in base64 representation that contains a text file, such as XML. This example shows how to decompress and access the string. Perl

use chilkat();

$success = 0;

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

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

$gzipBase64 = "H4sIAAAAAAAE ... X6aZjXO3EwAA";

$bd = chilkat::CkBinData->new();
$success = $bd->AppendEncoded($gzipBase64,"base64");

$success = $gzip->UncompressBd($bd);
if ($success != 1) {
    print $gzip->lastErrorText() . "\r\n";
    exit;
}

$strXml = $bd->getString("utf-8");
print "XML:" . "\r\n";
print $strXml . "\r\n";