使用 perl(perl 模块)访问压缩文件夹中的特定文件

Accessing a specific file in zipped folder using perl (perl module)

我正在尝试访问压缩文件夹中的文本文件以提取特定信息,但实际上并未解压缩该文件。我正在尝试使用 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}
}

我看到它正在提取文件夹但没有读取文件!!

此致

您正在分配给 $line 但正在打印 $_;尝试 print $line;