linux ftp perl上传脚本

q66262

#####################　　##FTP上传
　　#本小段参考：http://www.diybl.com/course/4_webprogram/cgi/perljs/200862/120244.html
　　###################################################################################
　　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";