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

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

Replies are listed 'Best First'.
Re^10: Creating a .zip file using perl
by Utilitarian (Vicar) on May 05, 2011 at 09:34 UTC
    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."