发布时间:2015-03-26 23:56:42
#! perl -wuse Archive::Zip qw( :ERROR_CODES :CONSTANTS );my $zip = Archive::Zip->new(); ###创建压缩文件,如果有参数则按读取该文件的内容1.压缩ZIP$zip->addTree("F:/kx_code","123"); unless ( $zip->writeToFileNamed('kx_code.zip') == AZ_OK ) { die 'write error';} ##成.........【阅读全文】
发布时间:2015-03-26 20:39:41
1.先安装dmake ppm install dmake2.安装MinGw ppm install MinGw3.安装网络上下载的模块 1.进入解压的目录 cd F:\Tk-DateEntry-1.40\Tk-DateEntry-1.40 2.安装模块开始 perl Makef.........【阅读全文】