Windows:

perl -MCPAN -e shell

install  XML::GDOME   Archive::Zip

后面继续更新。。。

Archive usage:

$obj = Archive::Zip->new();

$obj->addFile($file);

$obj->writeToFileNamed("dummy.zip");

if( $obj->writeToFileNamed() != AZ_OK) { exception }