папка perl zip пуста

Question

Я пытаюсь использовать Archive :: Zip, чтобы сжать каталог, но полученный zip-файл пуст. Что я делаю не так?

   my ($inDirectory, $outFile) = @_;

   # Create a Zip file
   my $zip = Archive::Zip->new();

   # Add a directory
   my $dir_member = $zip->addDirectory($inDirectory. "/");

   # Save the Zip file
   unless ( $zip->writeToFileNamed($outFile) == AZ_OK ) {
       die 'Could not zip file';
   }

Answer 1

Получилось, мне пришлось использовать $ zip-> addTree

Answer 2

Возможно, ваш каталог $ inDirectory ... не является ожидаемым каталогом, и я не уверен, но похоже, что вам не нужна конечная косая черта для dirname:

print $inDirectory::Find::name;
if ( -d $inDirectory::Find::name ) { # just grab directories, not files.
   print "adding a dir\n";
   $zip->addDirectory($inDirectory::Find::name);
} else {
  #zip files
   print "adding a file\n";
  $zip->addFile($inDirectory::Find::name) != AZ_OK ||  print "couldn't add file \n";
}