在Perl中，使用模块Net::FTP来使用FTP服务，一般的使用步骤如下：
1. 使用Net::FTP的new方法来创建一个新的FTP对象。
2. 使用login方法登录到FTP服务器。
3. 使用cwd方法来切换目录。
4. 使用get方法来获取文件。
5. 使用put方法来上传文件。
6. 使用quit方法退出。
更多有关标准的Net::FTP模块的应用，可以参考PerlDoc里的说明：
|
[root@lvdbing.net Perl]# cat -n FTP.pl
1 #!/usr/bin/perl -w
2 #使用模块Net::FTP
3 use Net::FTP;
4 #创建新的FTP连接
5 $ftp = Net::FTP->new
6 (
7 "ftp.cpan.org",
8 Timeout => 30
9 ) or die "Could not connect.\n";
10 #登录用的用户名和密码
11 $username = 'anonymous';
12 $password = 'lvdbing@163.com';
13 #登录到FTP服务器
14 $ftp->login($username,$password) or die "Could not login.\n";
15 #切换目录到/pub/CPAN
16 $ftp->cwd('/pub/CPAN');
17 #指定远程的文件和本地的文件
18 $remotefile = "CPAN.html";
19 $localfile = "CPAN.html";
20 #使用get方法下载远程文件到本地来
21 $ftp->get($remotefile,$localfile) or die "Could not get remotefile:$remotefile\n";
22 #退出FTP服务器
23 $ftp->quit;
|
|
[root@lvdbing.net Perl]# perl FTP.pl
[root@lvdbing.net Perl]# ls
CPAN.html FTP.pl rDNS.pl
[root@lvdbing.net Perl]# cat CPAN.html
<HTML>
<HEAD>
<TITLE>CPAN.html</TITLE>
</HEAD>
<BODY BGCOLOR="#ffffff" TEXT="#000000">
... ... ...
</BODY>
</HTML>
|
