Unzip .bz2 (BZip2) Compressed File

Unzips a .bz2 compressed file.

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

use chilkat();

$bz2 = new chilkat::CkBz2();

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

#  The .bz2 file format is not an archive.  Only a single
#  file may be compressed / decompressed.  It is for this reason that you'll
#  often see TAR files compressed with BZip2 (i.e. a file
#  ending in .tar.bz2.

#  This example will uncompress an XML file.
#  The 1st arg is the file to decompress, the 2nd arg is
#  the output filename.
$success = $bz2->UncompressFile("hamlet.xml.bz2","hamlet.xml");
if ($success != 1) {
    print $bz2->lastErrorText() . "\n";
    exit;
}

#  There is no limitation on the size of files that may be uncompressed.
print "Success!" . "\n";