zip file with perl

Utilizaremos el modulo Archive::Zip

Comprimir fichero a .zip

#!/usr/bin/perl
use Archive::Zip;
$obj = Archive::Zip->new();
$obj->addFile($file);
$obj->writeToFileNamed('dummy.zip');

para controlar que no ha habido errores:
if ($obj->writeToFileNamed('dummy.zip') = "AZ_OK" ) { print "Archivo comprimido ok\n";}
else { print "Archivo NO comprimido correctamente!!"; }

Descomprimir un fichero .zip

#!/bin/perl

use Archive::Zip; # imports

$obj = Archive::Zip->new(); # new instance
$status = $obj->read('dummy.zip'); # read file contents
if ($status != AZ_OK) { die('Error in file!'); }
else { $obj->extractTree(undef, "/tmp/"); # extract files }

Ref.:

http://search.cpan.org/~adamk/Archive-Zip-1.30/lib/Archive/Zip.pm

http://www.techrepublic.com/blog/programming-and-development/create-zip-archives-dynamically-and-on-the-fly-with-perl/385