免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 5139 | 回复: 4

perl Net::FTP mget ? mput ? [复制链接]

论坛徽章:
0
发表于 2010-04-27 11:48 |显示全部楼层
本帖最后由 leal402 于 2010-04-27 13:18 编辑

perl的ftp可以mget和mput吗?
例如,我想ftp所有以svc结尾文件用ftp可以:
prompt
mget *svc
bye

perl是怎么办到的?

论坛徽章:
0
发表于 2010-04-27 12:38 |显示全部楼层
大牛都去吃饭了?

论坛徽章:
78
双子座
日期:2013-10-15 08:50:09天秤座
日期:2013-10-16 18:02:08白羊座
日期:2013-10-18 13:35:33天蝎座
日期:2013-10-18 13:37:06狮子座
日期:2013-10-18 13:40:31双子座
日期:2013-10-22 13:58:42戌狗
日期:2013-10-22 18:50:04CU十二周年纪念徽章
日期:2013-10-24 15:41:34巨蟹座
日期:2013-10-24 17:14:56处女座
日期:2013-10-24 17:15:30双子座
日期:2013-10-25 13:49:39午马
日期:2013-10-28 15:02:15
发表于 2010-04-27 15:42 |显示全部楼层
这个好像不支持

论坛徽章:
0
发表于 2010-04-28 09:56 |显示全部楼层
本帖最后由 hunter_cao 于 2010-04-28 09:58 编辑

这样写不知道对你有帮助不:


  1. #!/usr/bin/perl
  2. use warnings;
  3. use strict;
  4. use Net::FTP;

  5. my $ftp = Net::FTP->new('10.0.0.1',Debug=>0) or die "$@";
  6. $ftp->login('test','test') or die "Cannot login ",$ftp->message;
  7. $ftp->binary;
  8. my @array = $ftp->ls("*svc");
  9. foreach my $list (@array) {
  10.     $ftp->get("$list") or die "get failed",$ftp->message;
  11. }
  12. $ftp->quit;


复制代码

论坛徽章:
1
2015年辞旧岁徽章
日期:2015-03-03 16:54:15
发表于 2010-04-28 10:35 |显示全部楼层
FTP 协议就没有 mput 和 mget,
这个是客户端软件实现的,
在 Perl 中实现一个 mput/mget 难道不是像 1 一样简单吗?
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP