Perl-->FTP的使用

在Perl中，使用模块Net::FTP来使用FTP服务，一般的使用步骤如下：

 

1. 使用Net::FTP的new方法来创建一个新的FTP对象。

2. 使用login方法登录到FTP服务器。

3. 使用cwd方法来切换目录。

4. 使用get方法来获取文件。

5. 使用put方法来上传文件。

6. 使用quit方法退出。

下面是linux下perl编写的ftp程序连接非21端口的例子：

[root@localhost aa]# more connect_ftp.pl

#!/usr/bin/perl -w

use Net::FTP;

$server = '192.168.1.251';
$port = '9999';
$user = 'user';
$pw = '123456';

$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 = '123456.mp3';
$localpath = '/usr/local/src';
$localfile = $localpath . "/1234567890.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.