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

Question

我不确定这里有什么问题，因为在 10 台服务器中，有 2 台给了我错误：

无法连接到 sun09 : Net::FTP: Bad hostname 'sun09:' at deploy_update.pl 第 204 行。

奇怪的是，以下代码提取在循环内工作，适用于某些服务器，但对于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 台，但不适用于sun08and sun09。

Answer 1

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