perl - サブディレクトリを含むperl unzip

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();