in reply to Zipping Files

if ($File::Find::name =~ m/\.txt$/i){
   $zipped = $zip->addFile( $File::Find::name );
}

[download]

Neil Watson
watson-wilson.ca

Replies are listed 'Best First'.
Re^2: Zipping Files
by Anonymous Monk on Feb 17, 2006 at 21:48 UTC
    It worked, thanks.
[reply]

In Section Seekers of Perl Wisdom