Net :: FTP无法连接到某些主机

时间:2012-04-21 23:01:49

标签: perl

我不确定这里有什么问题,因为10个服务器中有2个给我错误:

  

无法连接到sun09:Net :: FTP:在deploy_update.pl第204行,主机名'sun09:'错误。

奇怪的是,以下代码提取在循环内部工作,适用于某些服务器,但对于sun09服务器,我无法连接。

$ftp = Net::FTP->new("$hostname:$ftp_port",  Debug => 0)
or die "Cannot connect to $hostname : $@";
$ftp->login($iLogin,$iPass)
or die "failed ", $ftp->message;
$ftp->binary()
or die "Cannot set to Binary";
$ftp->delete("/admin/replicate/inbound/$file");
#or warn $ftp->message;
$ftp->cwd("/admin/replicate/inbound")
or die "Cannot change working directory ", $ftp->message;
$ftp->put("$file")
or die "Upload Failed ", $ftp->message;
$ftp->quit;

这适用于10台服务器中的8台,但不适用于sun08sun09

1 个答案:

答案 0 :(得分:1)

对于这些主机,$ftp_port看起来是空的;如果要使用默认端口,则应完全省略冒号。