文件名称:
perl脚本（压缩文件夹下文件）上传服务器
开发工具:
文件大小: 1kb
下载次数: 0
上传时间: 2019-03-30
详细说明： 利用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 ) = localtime( time - 604800 );#一周前的时间 my $yyyymmdd = sprintf( "ddd", $year + 1900, $mon + 1, $mday ); my $get_name = D:/Notepad; # 可以改为带参数运行$ARGV[0] my $topath = O:/etest/mu; #$ARGV[1] my data; opendir( TEMP, "$get_name" ) || die "$!";#读文件夹测试时间 while ( my $file = readdir TEMP ) { if ( $file !~ /^\.\.?$/ ) { chomp $file; if ( -d "$get_name/$file" ) { if ( time_change( ( stat("$get_name/$file") )[9] ) < $yyyymmdd ) { push data, $file; } } } } closedir(TEMP); #一下是每个文件夹压缩，测试上传成功删除本地文件夹和zip foreach my $j (data) { $zip = Archive::Zip->new(); $zip->addTree( "$get_name/$j", "$j", sub { /.*/ } ); my $status = $zip->writeToFileNamed("$get_name/$j.zip"); if ( $status == AZ_OK ) { copy( "$get_name/$j.zip", "$topath/$j.zip" ); if ( -e "$topath/$j.zip" ) { rmtree("$get_name/$j"); unlink("$get_name/$j.zip"); } else { unlink("$get_name/$j.zip"); } } } sub time_change { my $tt = shift; my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) = localtime($tt); my $ymd = sprintf( "ddd", $year + 1900, $mon + 1, $mday ); }
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
相关搜索:
