Perl使用Net::FTP从FTP上下载文件

设为首页
点击收藏
手机版

手机扫一扫访问
迪恩网络手机版
关注官方公众号

微信扫一扫关注
迪恩网络公众号

登陆注册

快速发帖
客服电话

点击联系客服
在线时间：8:00-16:00

客服电话

132-9538-2358

电子邮件
[email protected]
APP下载

迪恩网络APP

随时随地掌握行业动态
官方微信

扫描二维码

关注迪恩网络微信公众号
问题反馈
返回顶部

OGeek|极客世界-中国程序员成长平台 › 门户 › 编程› Perl›Perl教程

原作者: [db:作者] 来自: [db:来源] 收藏邀请

#!/usr/bin/perl

use Net::FTP;

$ftp = Net::FTP->new("ftp.cpan.org", Timeout => 30)
or die "Could not connect.\n";

$username = "anonymous";
$password = "";

$ftp->login($username, $password)
or die "Could not log in.\n";

$ftp->cwd('/pub/CPAN');
@ls = $ftp->ls(); #得到目录下所有文件，便于批量下载

$remotefile = "CPAN.html";
$localfile = "file.txt";

$ftp->get($remotefile, $localfile) #上传为put函数
or die "Can not get file.\n";