Chinaunix首页 | 论坛 | 博客
  • 博客访问: 203407
  • 博文数量: 30
  • 博客积分: 0
  • 博客等级: 民兵
  • 技术积分: 255
  • 用 户 组: 普通用户
  • 注册时间: 2013-09-12 09:21
  • 认证徽章:
文章分类

全部博文(30)

文章存档

2019年(9)

2018年(20)

2014年(1)

分类: LINUX

2018-12-26 15:34:35

原文地址:Perl-->FTP的使用 作者:huifeideluotuo

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

阅读(2168) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~
评论热议
请登录后评论。

登录 注册