在perl中提取tar.gz文件
问题描述:
我有一个tar.gz文件,其大小为appx 60 MB ...我需要提取该文件中的tar.gz文件..但是我得到Out Of而使用下面的命令内存错误..在perl中提取tar.gz文件
use Archive::Extract;
$TAR_FILE_WORK_PATH='C:\..\..\..\Perl\IN\test_sample.xml.tar.gz';
$WORK_DIR = 'C:\..\..\..\Perl\IN\Work';
my $extract_obj = Archive::Extract->new(archive => $TAR_FILE_WORK_PATH, type => 'tgz');
if (!($extract_obj->extract(to => $WORK_DIR))){
print "Error extracting tar file\n";
}
else {
print "Extracted tar file $LATEST_FILE_NAME successfully";
}
请帮我在提取tar.gz文件到一个有效的方式在不同的目录....
我试过使用存档::焦油以及..以下是代码..使用存档::焦油; my $ tar = Archive :: Tar-> new; $ tar-> read('C:/ Srinivas /../../../ Perl/IN/Work/test_sample.xml.tar.gz'); $ tar-> extract();仍然我收到了内存不足的错误....欣赏一些回应... – Srini 2013-05-03 09:05:41