我不确定这里有什么问题,因为在 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 台,但不适用于sun08
and sun09
。