原:http://search.cpan.org/~gbarr/libnet-1.22/Net/FTP.pm
use Net::FTP; $ftp = Net::FTP->new("some.host.name", Debug => 0) or die "Cannot connect to some.host.name: $@"; $ftp->login("anonymous",'-anonymous@') or die "Cannot login ", $ftp->message; $ftp->cwd("/pub") or die "Cannot change working directory ", $ftp->message; $ftp->get("that.file") or die "get failed ", $ftp->message; $ftp->quit;1.登录:login ([LOGIN [,PASSWORD [, ACCOUNT] ] ])
2.ascii/binary:以asicc或bin方式登录
3.重命名:rename ( OLDNAME, NEWNAME )
4.删除文件:delete ( FILENAME )
5.进入目录:cwd ( [ DIR ] )
6.返回上一级目录:cdup ()
7.pwd,你懂的:pwd ()
8.文件夹操作:rmdir ( DIR [, RECURSE ]) / mkdir ( DIR [, RECURSE ])
9.ls,你又懂的:ls ( [ DIR ] )
10.交互文件操作:get ( REMOTE_FILE [, LOCAL_FILE [, WHERE]] ) \ put ( LOCAL_FILE [, REMOTE_FILE ] )
11.quit ,地球人都知道:quit ()