in reply to Re^7: Creating a .zip file using perl
in thread Creating a .zip file using perl

Eh, I tested that and it works correctly, are there any files ending in .lib in the directory you are interested in (are you looking to check subdirectories or something else that you haven't mentioned?)

print "Good ",qw(night morning afternoon evening)[(localtime)[2]/6]," fellow monks."

Replies are listed 'Best First'.
Re^9: Creating a .zip file using perl
by Anonymous Monk on May 05, 2011 at 09:07 UTC

    I need to search recursively through subdirectories and then zip,not just in the current directory.Please help

      Beginners guide to File::Find provides examples of how to use File::Find to traverse a directory tree, simply put you need to add files to the zip if they match your criteria in the "wanted" function.

      You can use this rather than a direct directory read to provide you with your list of filenames to check. You'll have to work through spurperl's tutorial, but that way you'll have learned something from this exercise ;)

      print "Good ",qw(night morning afternoon evening)[(localtime)[2]/6]," fellow monks."