Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1716101
  • 博文数量: 228
  • 博客积分: 10521
  • 博客等级: 上将
  • 技术积分: 3472
  • 用 户 组: 普通用户
  • 注册时间: 2006-10-20 14:59
个人简介

低调做人,高调做事!

文章分类

全部博文(228)

文章存档

2013年(4)

2012年(8)

2011年(16)

2010年(25)

2009年(92)

2008年(83)

分类: LINUX

2008-10-08 14:34:32

在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.

阅读(7034) | 评论(1) | 转发(5) |
给主人留下些什么吧!~~

fender01074012015-01-01 20:34:44

写的很清楚。

评论热议
请登录后评论。

登录 注册