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 }