私は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");
}
しかし、私の問題は、ファイル全体を単一のフォルダーに配置し、サブフォルダーを回避することです。つまり、サブフォルダーを作成する代わりに、ファイル全体を単一のフォルダーに配置します
誰か助けてください
ありがとう