2013-05-03 44 views
0

我有一个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文件到一个有效的方式在不同的目录....

+0

我试过使用存档::焦油以及..以下是代码..使用存档::焦油; 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

回答