Untar a .tar.bz2 Compressed Archive

Untar a .tar.bz2 compressed archive.

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

use chilkat();

#  Important: It is helpful to send the contents of the
#  tar.LastErrorText property when requesting support.

#  Untar a .tar archive.
$tar = new chilkat::CkTar();

#  Any string automatically begins the 30-day trial.
$success = $tar->UnlockComponent("Anything for 30-day trial");
if ($success != 1) {
    print $tar->lastErrorText() . "\r\n";
    exit;
}

#  Untar into c:/temp/untarDir.  The directory tree(s) contained
#  within the TAR archive will be re-created rooted at this
#  directory.
$tar->put_UntarFromDir("/Users/chilkat/temp/untarDir");

#  If any filepaths within the Tar archive are absolute,
#  automatically make them relative by removing the first
#  forward or backward slash.  This protects from untarring
#  files to unexpected locations.
$tar->put_NoAbsolutePaths(1);

$success = $tar->UntarBz2("/Users/chilkat/testData/tar/abc123.tar.bz2");
if ($success != 1) {
    print $tar->lastErrorText() . "\r\n";
}
else {
    print "Success" . "\r\n";
}