Zipping the files

[nesanhere]

I want to zip files (which has a specific extension eg: .pdf) from a folder; the files with same extension inside the subfolders should not be zipped

[reneeb]

opendir(DIR,$dir) or die $!;
my @files = map{$dir.'/'.$_}grep{$_ =~ /\.$extension$/}readdir(DIR);
closedir DIR;


or

my @files = glob($dir.'/*.'.$extension);



To zip files you can use Archive::Zip or Archive::Tar...

[Joost]

What is your question? Is there anything wrong with

zip some.zip *.pdf

[Samy_rio]

Hi, Your question is not clear, but I have palced code for zip the files in the given path (as argument).

use Archive::Zip;
$path = $ARGV[0];
chdir ($path);
my $zip = Archive::Zip->new();       #create object
my $file = $1 if($path =~ /\\([^\\]+)$/);
$zip->addTree( '.', "$file" );  
$zip->writeToFileNamed( "$path.zip" );  #archive & compress
print "Zip Process Over";

Check whether it helps you.

[Roger]

I'd say that `zip filename.zip dir/*.pdf` will do the trick. Note that if you do not specify the -r switch, the zip program will not recurse into subdirectories. Ok, you do have zip installed, don't you? :-)

[radiantmatrix]

You can use the command-line versions of zip or 7zip easily enough. On the off chance that this is part of a larger Perl-driven process, you have two approaches:

system('zip',$zipfile_name,'*.pdf');
## don't forget to check $? for errors

Or, you can use something like:

use Archive::Zip;
my $zip = new Archive::Zip;

for (glob '*.pdf') {
   my $member = $zip->addFile($_);
   $member->desiredCompressionMethod( COMPRESSION_DEFLATED );
}

die "Can't write zip file" if $zip->writeToFileNamed('pdfs.zip') != AZ
+_OK;

This is untested, of course, but it should be basically correct.