Net::FTP 求助

changejun

如题，俺用Net::FTP 去下载WIN FTPserver 下面的文件，总是提示timeout  
帐户和密码没问题，用FileZilla 却可以下载下来。不知道是什么原因
同样的代码下载另一个server下面的文件却正常。

FTPSERVER 的端口是2110

my $ftp = Net::FTP->new($host,Timeout=>120,Debug=>1,Port=>2110)   

Net::FTP=GLOB(0x85f9d74)<<< 331 User name okay, need password.
Net::FTP=GLOB(0x85f9d74)>>> PASS ....
Net::FTP=GLOB(0x85f9d74)<<< 230 User logged in, proceed.
main:extract_user.pl:46):     $ftp->get("$file"
main:extract_user.pl:47):     or die print FLOG "ERROR : Cannot change working directory\n\n ";
  DB<2> n
Net::FTP=GLOB(0x85f9d74)>>> PASV
Net::FTP=GLOB(0x85f9d74)<<< 227 Entering Passive Mode (192,168,20,114,17,233)
Net::FTP=GLOB(0x85f9d74)>>> RETR mms_2009-01-16.txt
Net::FTP=GLOB(0x85f9d74): Timeout at extract_user.pl line 46
at /usr/lib/perl5/5.8.8/Net/Cmd.pm line 306
        Net::Cmd::getline('Net::FTP=GLOB(0x85f9d74)') called at /usr/lib/perl5/5.8.8/Net/Cmd.pm line 345
        Net::Cmd::response('Net::FTP=GLOB(0x85f9d74)') called at /usr/lib/perl5/5.8.8/Net/FTP.pm line 1080
        Net::FTP::response('Net::FTP=GLOB(0x85f9d74)') called at /usr/lib/perl5/5.8.8/Net/FTP.pm line 1015
        Net::FTP::_data_cmd('Net::FTP=GLOB(0x85f9d74)', 'RETR', 'mms_2009-01-16.txt') called at /usr/lib/perl5/5.8.8/Net/FTP.pm line 678
        Net::FTP::retr('Net::FTP=GLOB(0x85f9d74)', 'mms_2009-01-16.txt') called at /usr/lib/perl5/5.8.8/Net/FTP.pm line 458
        Net::FTP::get('Net::FTP=GLOB(0x85f9d74)', 'mms_2009-01-16.txt') called at extract_user.pl line 46
Died at extract_user.pl line 46.

恳求赐教，在此谢过！

[ 本帖最后由 changejun 于 2009-1-17 14:12 编辑 ]

judite

似乎服务器不支持被动模式或者有防火墙
用port看看？

changejun

谢谢楼上的哥们！  防火墙肯定有的，但是应该开方了FTP端口，因为用FileZilla 可以下载下来的阿。

ynchnluiti

Net::FTP=GLOB(0x85f9d74)<<< 227 Entering Passive Mode (192,168,20,114,17,233)

这句表明FTP支持Passive模式

ynchnluiti

原帖由 changejun 于 2009-1-17 14:43 发表
谢谢楼上的哥们！  防火墙肯定有的，但是应该开方了FTP端口，因为用FileZilla 可以下载下来的阿。

Net::FTP是哪个版本的？

1. print $Net::FTP::VERSION, "\n";

复制代码

changejun

最新的版本阿   我前几天刚开始用这个的阿

ynchnluiti

原帖由 changejun 于 2009-1-17 16:21 发表
最新的版本阿   我前几天刚开始用这个的阿

没遇到过
有没有试过用相同代码从别的ftp下载东西

changejun

恩！ 试过了！ 能从别发 FTPserver下面下载下来的阿  
不知道这个是怎么回事？
难道是权限问题？
可是FILEZILLA 却可以的阿  

十分感谢楼上的朋友

ynchnluiti

原帖由 changejun 于 2009-1-17 17:04 发表
恩！ 试过了！ 能从别发 FTPserver下面下载下来的阿  
不知道这个是怎么回事？
难道是权限问题？
可是FILEZILLA 却可以的阿  

十分感谢楼上的朋友

权限问题应该有提示吧

changejun

是啊  ！ 俺是相当郁闷阿  呵呵 没办法 不知道什么原因  期待高手再次指导