[PerlChina] 关于 Net::FTP: Unexpected EOF on command channel

写了一段ftp下载的代码,但是不知道哪里出了问题,有时成功,有时失败,错误说 最后 quit的时候 发生这个错误 Net::FTP: Unexpected EOF on command channel.


my $ftp = Net::FTP->new("9.123.196.84", Debug => 1) or die "Cannot connect to 9.123.196.84: $@";

$ftp->login('esa','esa123') or die "Cannot login ", $ftp->message;

$ftp->pasv();

$ftp->binary();


$ftp->cwd("/temp") or die "Cannot change working directory ", $ftp->message;


$ftp->get("feature.xml") or die "get failed ", $ftp->message;

$ftp->quit();

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
 要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
 要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
 更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---