linux ftp perl上传脚本
作者 佚名技术
来源 Linux系统
浏览
发布时间 2012-04-24
| ################################# use Net::FTP; $ftp=Net::FTP->new("$FTP_ADDR",Timeout=>30) or die "Could not connect.n"; #登录到FTP $ftp->login($FTP_username,$FTP_pass) or die "Could not login.n"; #切换目录 $ftp->cwd("/$FTP_dir[0]") ,$FTP_error=$ftp->message; if ( $FTP_error =~ /Failed/){ print "FTP返回目录不存在错误信息,开始创建目录$FTP_dir[0]...,n"; $ftp->mkdir($FTP_dir[0]); print "$FTP_dir[0]目录创建完毕..并切换到目录创建目录,n"; $ftp->cwd("/$FTP_dir[0]"); print "开始上传文件$file...n"; $ftp->put($file) or die "上传$file失败...,n"; $ftp->put($charactorfile) or die "上传$charactorfile失败...,n"; $ftp->put($accountfile) or die "上传$accountfile失败...,n";
$ftp->quit; } else { $ftp->put($file) or die "上传$file失败...,n"; $ftp->put($charactorfile) or die "上传$charactorfile失败...,n"; $ftp->put($accountfile) or die "上传$accountfile失败...,n"; $ftp->quit; } print "上传文件$file,$charactorfile,$accountfile至FTP的$FTP_dir[0]完成...,n"; 下面是以前的shell脚本 #!/bin/bash str=`date %Y-%m-%d` path="/database/setup/data" logpath="/var/log/ftpdata.log" #从/database/mcsh脚本里取相关FTP的用户及目录字段并判断是否正确正确则上传至FTP dir=` cat /database/mcsh |grep str=|awk -F = ''{print $2}''|awk -F _ ''{print $1}''` user=`echo $dir|sed ''s/[0-9]{2}$//''` ftppath="/DataCenter/DataCenter/$user/$dir" if [ ! -f /database/mcsh ] then exit echo "请核对/database/mcsh文件是否存在" >> $logpath 2>&1 fi string="`echo $user|grep .gz`" if [ -z "$user" ] then echo "`date %Y-%m-%d %R` FTP传递参数有误请核对/database/mcsh文件的str里的=与_间隔是否与FTP的用户及目录对应" >> $logpath elif [ ! -z "$string" ] then echo "`date %Y-%m-%d %R` FTP传递参数有误数据中心不存在$ftppath目录请核对/database/mcsh文件的str里的=与_间隔是否与FTP的用户及目录对应" >> $logpath else mysql -ppassword -e ''select * from gameLog.log_everyday;'' > $path/log_everyday.txt cd $path #sed 1d log_everyday.txt > log_everyday.csv #rm -rf log_everyday.txt mv log_everyday.txt log_everyday.csv ftp -n <<EOF open xxx 21 user $user password binary prompt off cd $dir mput * bye EOF echo "`date %Y-%m-%d %R` 上传至FTP的$ftppath !!!" >> $logpath fi
|
||
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
上一篇: 开源数据库“五虎将”下一篇: 初学Linux的心得
关于linux ftp perl上传脚本的所有评论
