perl - perl 解压子目录

Question

我使用 perl 模块来提取一个 .zip 文件，它由许多子目录组成，我使用下面的代码

my $extract_path = $des_path . "\\files";
mkdir $extract_path;
my $filename = $des_path . "\\" . basename($zipfile_path);
my $zip = Archive::Zip->new($filename);

foreach my $member ($zip->members)
{
    next if $member->isDirectory;
    (my $extractName = $member->fileName) =~ s{.*/}{};
    $member->extractToFileNamed("$extract_path/$extractName");
}

但我的问题是将整个文件放在一个文件夹中并避免使用子文件夹。也就是说，整个文件都放在一个文件夹中，而不是创建子文件夹

出了什么问题任何人帮助我

谢谢

Answer 1

尝试用你的 foreach 块替换

$zip->extractTree();