© 1999-2048 dssz.net 粤ICP备11031372号
[Perl] perl脚本(压缩文件夹下文件)上传服务器
说明: 利用perl写一脚本压缩本地文件夹上传到服务器,具体, #!/usr/bin/perl -w use Archive::Zip qw( :ERROR_CODES :CONSTANTS ); use File::Path; use File::Copy; my $zip = Archive::Zip->new(); use strict; my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) = localti<jbwanggz> 上传 | 大小:1kb