Ned Konz > Archive-Zip-1.10 > ziprecent.pl

Download:
Archive-Zip-1.10.tar.gz

Annotate this POD

CPAN RT

New  41
Open  40
View/Report Bugs
Source   Latest Release: Archive-Zip-1.16

NAME ^

ziprecent.pl

SYNOPSIS ^

  ziprecent h:/myperl

  ziprecent h:/myperl -e pl pm -d 365

  ziprecent h:/myperl -q 

  ziprecent h:/myperl h:/temp/zip/file1.zip 

DESCRIPTION ^

This script helps to collect recently modified files in a source directory into a zip file (new or existing).

It uses Archive::Zip.

ziprecent h:/myperl

Lists and zips all files more recent than 1 day (24 hours) in directory h:/myperl and it's subdirectories, and places the zip file into default zip directory. The generated zip file name is based on local time (e.g. 20001208-231237.zip).

ziprecent h:/myperl -e pl pm -d 365

Zips only .pl and .pm files more recent than one year.

ziprecent h:/myperl -msvc

Zips source files found in a typical MSVC project.

ziprecent h:/myperl -q

Lists files that should be zipped.

ziprecent h:/myperl h:/temp/zip/file1.zip

Updates file named h:/temp/zip/file1.zip (overwrites an existing file if writable).

ziprecent -h

Prints the help text and exits.

 ziprecent.pl <dir> -d <days> [-e <ext> ...]> [-h] [-msvc] [-q] [<zippath>]
 Zips files in source directory and its subdirectories
 whose file extension is in specified extensions (default: any extension).
    -d <days>       max age (days) for files to be zipped (default: 1 day)
    <dir>           source directory
    -e <ext>        one or more space-separated extensions
    -h              print help text and exit
    -msvc           may be given instead of -e and will zip all msvc source files  
    -q              query only (list files but don't zip)
    <zippath>.zip   path to zipfile to be created (or updated if it exists)

BUGS ^

Tested only on Win2k.

Does not handle filenames without extension.

Does not accept more than one source directory (workaround: invoke separately for each directory, specifying the same zip file).

AUTHOR ^

Rudi Farkas rudif@lecroy.com rudif@bluemail.ch

SEE ALSO ^

perl ;-)

syntax highlighting: