Perl 得到ftp上面的文件

updatedb

用shell,或者直接用ftp得到服务器上的文件没有问题，但是用perl得到文件后，发现文件是坏的！请问这是为什么 ?(只得到了部分），但perl返回成功

1. 
   
2. #!/usr/bin/perl -w
   
3. 
   
4. use Net::FTP;
   
5. 
   
6. use constant HOST => 'ftp.xxxx.biz';
   
7. use constant DIR => '/PPL';
   
8. use constant FILE=>'scmweb.war';
   
9. 
   
10. my $ftp=Net::FTP->new(HOST) or die "Couldn't connect: $@\n";
    
11. $ftp->login('user','xxxxx') or die $ftp->message;
    
12. $ftp->cwd(DIR) or die $ftp->message;
    
13. $ftp->get(FILE) or die $ftp->message;
    
14. $ftp->quit;
    
15. 
    
16. warn "File retrieved successfully.\n";
    
17. 
    

复制代码

mikkoyue

呵呵，以前我也这么做过，当时由于不大懂，费了老大劲把Perl的FTP功能做好了，可惜拿下来的东西不能用，不知道是什么问题，后来就舍弃这种Perl的FTP功能不用了。

redspider

是不是文本模式和二进制模式的问题，你传一个文本文件试一下