我正在尝试访问压缩文件夹中的文本文件 以提取特定信息,而不会实际解压缩文件。我正在尝试使用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)); ## 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}
}
我看到它提取文件夹但没有在文件中读取!!
此致
答案 0 :(得分:2)
您正在分配$ line但打印$ _;试试print $line;