使用perl(perl模块)访问压缩文件夹中的特定文件
我试图访问压缩文件夹中的文本文件,以提取特定信息,而不实际解压缩该文件。我正在尝试使用Archive::Zip。目录结构类似于Data_stats.zip-->Data_stats/-->full_Data_stats.txt。现在我试过了使用perl(perl模块)访问压缩文件夹中的特定文件,perl,ziparchive,Perl,Ziparchive,我试图访问压缩文件夹中的文本文件,以提取特定信息,而不实际解压缩该文件。我正在尝试使用Archive::Zip。目录结构类似于Data_stats.zip-->Data_stats/-->full_Data_stats.txt。现在我试过了 use Archive::Zip; use Archive::Zip::MemberRead; use File::Basename; $zip_dir=$ARGV[0]; @name =split("\\.",basename($zip_dir)); #
use Archive::Zip;
use Archive::Zip::MemberRead;
use File::Basename;
$zip_dir=$ARGV[0];
@name =split("\\.",basename($zip_dir)); ## to get zipped folder name
$dir = Archive::Zip->new("$zip_dir");
$fh = Archive::Zip::MemberRead->new($dir,"$name[0]/full_data_stats.txt"); ##trying to reads the file giving the path and mentioning the specific file name
while (defined($line = $fh->getline()))
{
{print}
}
我看到它正在提取文件夹,但没有读取文件
关于您正在分配给$line但正在打印$;尝试
打印$line代码>您正在分配给$line,但正在打印$;尝试打印$line代码>你太棒了!!。。。我犯了一个愚蠢的错误:(你太棒了!!…我犯了一个愚蠢的错误:(