(Perl) Untar a .tar.Z (.taz) Compressed Archive
Untar a .tar.Z (.taz) compressed archive.
use chilkat();
# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.
# Untar a .tar archive.
$tar = chilkat::CkTar->new();
# 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->UntarZ("/Users/chilkat/testData/tar/abc123.tar.Z");
if ($success != 1) {
print $tar->lastErrorText() . "\r\n";
}
else {
print "Success" . "\r\n";
}
|