in reply to Re^5: Archive::ZIP - Zip selection of files
in thread Archive::ZIP - Zip selection of files

Thank you for your reply. You're right. But 
@files = $zip->memberNames();

[download]
does exactly what I want. I have all the file names and paths in the array. And with: 
@file = splice @files, 1, 50;

[download]
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");
      
  }

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

Replies are listed 'Best First'.
Re^7: Archive::ZIP - Zip selection of files
by Corion (Patriarch) on Apr 10, 2015 at 10:16 UTC

    Your program as shown still contains the line:

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

    [download]

    This will always add all files.

[reply]
[d/l]
      Well, if this is the case, I have to find another solution to fill my array. Thank you!
[reply]

        Note that you immediately overwrite your array @files after your call to ->addTree() anyway. Maybe now is a good moment to review your program logic and where what variable gets initialized with which values.

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom