Perl 使用 Net::FTP 下载文件,感兴趣的朋友可以参考下。
#!/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";