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";

Empire CMS,phome.net

$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

Empire CMS,phome.net

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!

上一页 1 2 3

分享到：更多

你可能对下面的文章感兴趣

上一篇: 开源数据库“五虎将”下一篇: 初学Linux的心得

关于linux ftp perl上传脚本的所有评论

随机推荐