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

oldmonst

perl代码

1. use Net::FTP;
   
2. 
   
3. $ftp = Net::FTP->new("ftp.cpan.org", Timeout => 30)
   
4.         or die "Could not connect.\n";
   
5. 
   
6. $username = "anonymous";
   
7. $password = "asdf";
   
8. 
   
9. $ftp->login($username, $password)
   
10.         or die "Could not log in.\n";
    
11. 
    
12. $ftp->cwd('/pub/CPAN');
    
13. 
    
14. $remotefile = "CPAN.html";
    
15. $localfile = "file.txt";
    
16. 
    
17. $ftp->get($remotefile, $localfile)
    
18.         or die "Can not get file.\n";

复制代码