Chinaunix首页 | 论坛 | 博客
  • 博客访问: 346427
  • 博文数量: 61
  • 博客积分: 2451
  • 博客等级: 上尉
  • 技术积分: 650
  • 用 户 组: 普通用户
  • 注册时间: 2010-12-06 21:24
文章分类

全部博文(61)

文章存档

2012年(1)

2011年(44)

2010年(16)

分类: LINUX

2011-01-30 23:35:48

代码:
  1. #!/usr/bin/perl
  2. use warnings;
  3. use strict;
  4. use Net::FTP;
  5. use constant HOST => '192.168.1.4';
  6. use constant PASS => '123';
  7. use constant USER => 'vitualadmin';
  8. my $ftp = Net::FTP->new(HOST) or die "Could not connect.\n";
  9. $ftp->login(USER,PASS) or die "Could not log in .\n";
  10. $ftp->cwd('public');
  11. my $remotefile = 'Business-ISBN-2.05.tar.gz';
  12. $ftp->get($remotefile);
  13. $ftp->quit;
perl 通过 Net::FTP 来连接ftp 并下载或上传文件,删除,重名名文件,目录。
通过new 方法 创建一个对象 建立连接
通过login 方法 用指定的用户名,密码进行登录
通过cwd 方法更改目录
通过get 方法下载指定的文件
最后quit 方法退出
还有很多可以参考perldoc Net::FTP
这里use constant 相当于C语言的宏定义。。。
最后感觉这个执行时间比较慢。。。
阅读(3212) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~