自己写的一个ftp下传的一个小程序

时间：2010-11-19 来源：xiucai315

#!/usr/bin/perl use strict; use warnings; use Net::FTP; use Cwd; #使用ftp函数的第一个例子，连接主机 #明天接着完成我的草鸡ftp程序 my $ftp = Net::FTP->new("xxx.xx.xx.xx", Debug => 0) or die "Cannot connect to $!\n";
#user:xxxx pass:xxx $ftp->login("xxx",'xxx') or die "Cannot login",$ftp->message."\n"; #定义机构 my $branch; #定义日期 my $dates; #定义当前目录 my $curdir; $curdir=getcwd(); #打开机构文件 open(FILE,"D:/perl_doc/branch.txt") or die("cannot open file.$!!"); #打开日期文件 open(DATE,"D:/perl_doc/dt.txt") or die("cannot open file.!$!"); while($dates=<DATE>){ chdir $curdir; chop $dates; mkdir $dates; #改变当前工作目录 chdir "$curdir/$dates"; #重新定位文件到头 seek FILE,0, "0"; while($branch=<FILE>){ chop $branch; mkdir $branch; $ftp->cwd("xxx") or die "Cannot change working directory",$ftp->message."\n" ; $ftp->cwd("xx") or die "Cannot change working directory",$ftp->message."\n" ; $ftp->cwd("xx") or die "Cannot change working directory",$ftp->message."\n" ; $ftp->cwd("$dates") or die "Cannot change working directory",$ftp->message."\n" ; $ftp->cwd("$branch") or die "Cannot change working directory",$ftp->message."\n" ; $ftp->binary; $ftp->get("xxxxx.txt")or die "get failed",$ftp->message."\n"; $ftp->cwd("/sjtest/bank"); system("move", "xxxxx.txt", "D:/perl_doc/$dates/$branch"); } } $ftp->quit;

相关阅读更多 +