linux ftp perl上传脚本
##################### ##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") ,$FTP_error=$ftp->message;
if ( $FTP_error =~ /Failed/){
print"FTP返回目录不存在错误信息，开始创建目录$FTP_dir...,\n";
$ftp->mkdir($FTP_dir);
print "$FTP_dir目录创建完毕..并切换到目录创建目录,\n";
$ftp->cwd("/$FTP_dir");
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完成。。。,\n";
页:
[1]