Re^5: Archive::ZIP - Zip selection of files

[Corion]

Have you considered what ->addTree is actually doing? It is not a function that purely returns information.

I think you should rethink your approach and consider getting two lists, one list of the files in the archive and one list of the files not in the archive, then eliminate the members in both lists (see perlfaq4) and then add the appropriate number of remaining files to the archive.

[gmaniac]

Thank you for your reply. You're right. But

@files = $zip->memberNames();

does exactly what I want. I have all the file names and paths in the array. And with:

@file = splice @files, 1, 50;

I reduce the information before it's written to an archive. I want to select before I write and have the names, that's why comparing is not my goal. It's curious why

foreach $line (@file) {

   $fileend = (split(/\./,"$line"))[-1];
    if (($fileend eq "jpg") || ($fileend eq "txt")) {
       $zip->addFile("$line");
      
  }

doesn't do the job. Any explanation to this?

[Corion]

Your program as shown still contains the line:

@files = $zip->addTree( "$zippath" );

This will always add all files.

[gmaniac]

Well, if this is the case, I have to find another solution to fill my array. Thank you!