在Perl中，使用模块Net::FTP来使用FTP服务，一般的使用步骤如下：1. 使用Net::FTP的new方法来创建一个新的FTP对象。2. 使用login方法登录到FTP服务器。
在Perl中，使用模块Net::FTP来使用FTP服务，一般的使用步骤如下：
1. 使用Net::FTP的new方法来创建一个新的FTP对象。
2. 使用login方法登录到FTP服务器。
3. 使用cwd方法来切换目录。
4. 使用get方法来获取文件。
5. 使用put方法来上传文件。
6. 使用quit方法退出。
一个ftp程序连接非21端口的例子：
复制代码 代码示例:
[root@localhost aa]# more connect_ftp.pl
#!/usr/bin/perl -w
use Net::FTP;
$server = '192.168.8.200';
$port = '2021';
$user = 'jb200.com';
$pw = '123456789';
$ftp = Net::FTP->new($server, Port=>$port, Debug => 0, Timeout => 600) or die "Cannot connect.n";
$ftp->login($user, $pw) or die "Could not login.n";
$ftp->cwd('/opt/ftp/123') or die "Cannot change working directory.n";
$remotefile = '2013.mp3';
$localpath = '/usr/local/src';
$localfile = $localpath . "/new-2013.mp3";
$ftp->get($remotefile, $localfile) or die "Could not get remotefile:$remotefile.n";
print "get file sucessful.n";
$ftp->quit;
执行：
复制代码 代码示例:
[root@localhost aa]# ./connect_ftp.pl
get file sucessful.
