I am new in perl & i am trying to zip a file in a directory d:\shabdita\file1.txt using the module Archive::zip this is my script what am i doing wrong use Archive::Zip qw( :ERROR_CODES :CONSTANTS ); my $dir='d:/shabdita/abc'; my $zip=Archive::Zip->new(); my $zipped; $zipped = $zip->addDirectory( $dir ); $zipped->desiredCompressionMethod( COMPRESSION_DEFLATED ); $zipped = $zip->addFile('file1.txt'); die 'write error' unless $zip->writeToFileNamed( 'show.zip' ) == AZ_OK;

check the perldoc Archive::Zip for examples on how to do it. GNU win32 packages | Gawk

my $zipName = "d:/shabdita/file1.zip"; chdir ('d:/shabdita'); my $memberName = "file1.txt"; my $zip = Archive::Zip->new(); $zip->addFile( $memberName ); $status = $zip->writeToFileNamed($zipName); if ( $status == 0 ) { print "Delete source file $memberName \n"; unlink $memberName; } else { print "Error. Do not delete source file $memberName \n"; }