Extract asc-gzip Encoded Data to XML (.xfd to .xml)

Extract asc-gzip encoded data to XML.

 Chilkat Perl Module Downloads for Windows, Linux, and MAC OS X

use chilkat();

$gzip = new chilkat::CkGzip();

#  Any string unlocks the component for the 1st 30-days.
$success = $gzip->UnlockComponent("Anything for 30-day trial.");
if ($success != 1) {
    print $gzip->lastErrorText() . "\n";
    exit;
}

$fac = new chilkat::CkFileAccess();

#  Read a compressed XFDL file and decompress to XML
$strXfdl = $fac->readEntireTextFile("af70.xfd","ansi");
$strXml = $gzip->xfdlToXml($strXfdl);

print $strXml . "\r\n";