I see a couple other solutions but here is mine. Used at work on a linux box to move .tif files but accepts filetype from cmd line argument, so that other types may also be zipped!

#!/usr/bin/perl  
use warnings;
use strict;
use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
use Time::localtime;
use Cwd;

my $dir = cwd;
system "cls";
die "Zip.pl\nUsage: <(c)ompress> <e(x)tract>\n"    unless(@ARGV == 1 o
+r @ARGV == 2);
my $opt = shift @ARGV;
if($opt =~ /c/i){
    print "Running compress routine\n";
    GlobFiles();
}
if($opt =~/x/i){
    GlobFiles2();
}

sub GlobFiles{
    @_ = glob ('*');
    ZipFiles(@_);
    }

sub GlobFiles2{
    @_ = glob ('*');
    UnZip(@_);
}
    
sub ZipFiles{
    my $expr;
    
    if(@ARGV == 1){
         $expr = shift @ARGV;
    }else{
        $expr = "tif\n"
    }
    chomp $expr;
    my $Zip = Archive::Zip->new();
    my ($wday, $month, $day, $t, $year)=split(/\s+/, ctime);
    my ($hour, $min, $sec)=split(/\:/, $t);
    my $new_t = "$hour-$min";
    my $ZipName = "$year $month\-$day $new_t";
    foreach(@_){
        next unless($_ =~ m/($expr)$/);
        my $member = $Zip->addFile($_);
        $member->desiredCompressionLevel( 9 );
        if($Zip->writeToFileNamed("$ZipName.zip") == AZ_OK) {
            # Below is used to remove the files once the files are zip
+ped AZ_OK
            #unlink($_);
            print "$_ written to $ZipName.zip\n";
            }
            else{
                warn "Error writing $_ to $ZipName.zip\nTrying to cont
+inue\n";
            }
        }
        if( -e "$ZipName.zip"){
            print "Done creating $ZipName.zip\n";
        }else{
            print "No $expr files found in current directory\n";
        }
        undef $Zip;
    }

sub UnZip{
    my $zip = Archive::Zip->new();                # Allows the use of 
+the zip module
    #my $FoldPath;
    foreach(@_){                        # Searches through each file p
+assed to the sub 
        next unless($_ =~ m/(zip)$/);            #skips all but zip fi
+les
        print "Opening $_ for extraction\n\n";
        #FoldNameCheck($Folder1);
        die "Error reading zip file" if $zip->read($_) != AZ_OK;
                                    # Errors if the zip file is not pr
+operly read.
        ## !! Below is used for foldername. Does return name but does 
+not make folder and extract to peroperly
        #FoldNameCheck($_);
        #sub returnname{
        #    no warnings;
        #    $FoldPath = shift @_;
        #    }
        my @members = $zip->members();            # used to view each 
+item in the zip file
        no warnings;                    # needed to keep module errors
+ from popping up
        foreach (@members){            # Used to loop through each ite
+m in the zip
            #print "$_->{fileName}\n";    #Used to test if the default
+ var would work.
            
            ## !! used for foldername !! #
            #my $newname = "$FoldPath/$_";
            #$zip->extractMember($_, $FoldPath,$_);
            $zip->extractMember($_);        # Actually extracting file
+ from zip
            print "Extracted $_->{fileName}\n";    # Display msg sayin
+g completion for each file
            }
        print "Done extracting files\n\n";            # Completion mes
+sage
    }
}

sub FoldNameCheck{
    my $Folder = shift @_;
    $Folder =~ s/(\d+\s\w+\-\d+\s\d+\-\d+)(.+)/$1/;
    if(-e $Folder){
        print "Extracting ...\n";
    }else{
        #mkdir "$Folder" or die "Error creating $Folder\n";
        print "Making folder $Folder\n";
    }
    return returnname($Folder);
}
[download]

Let me know what you think. Enjoy!

---

---

• Are you posting in the right place? Check out Where do I post X? to know for sure.
• Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:

  <code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>

• Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
• Want more info? How to link or How to display code and escape characters are good places to start.