使用 Perl::FTP 时，我应该在主机字段中输入什么来连接到网络上连接的本地计算机

Question

我正在 Perl 中使用 Net::FTP 进行一些文件传输。当我运行以下代码时：-

使用 IP 地址是否存在任何问题？我在主机字段中提供此信息是否正确？

use strict;          
use Net::FTP;

my $host = "10.77.69.124";
my $user = "administrator";
my $password = "Password";

my $f = Net::FTP->new($host, Debug =>0) or die "Can't open $host\n";
$f->login($user, $password) or die "Can't log  $user in\n";

该代码无法连接到远程主机。为什么会出现这种情况？这不应该与 $host 中提供的 IP 地址一起使用吗？

Answer 1

Net::FTP 的构造函数允许您传递单个标量值或主机数组来尝试。该字段的值应与 IO 中的 PeerAddr 相同： :Socket::INET（主机名或 IP 地址）。

通过指定“调试”来仔细查看发生的情况。如果您位于防火墙或 NAT 设置后面，您可能还应该将 Passive 设置为非零值，并确保通过打印 $@ 来检查构造函数是否失败。

my $ftp = Net::FTP->new(Host=>$host, Debug=>1, Passive=>1) || die $@;

如果构造函数成功，您可能需要检查其他方法是否失败：

$ftp->login($user, $pass) || die $ftp->message;
$ftp->cwd($path) || die $ftp->message;

顺便说一句：如果您不确定是否使用了正确的主机参数，您可以询问 Net::FTP 它尝试连接到哪个主机：

print $ftp->host, "\n";

如果这仍然不起作用，请提供您的应用程序的详细输出。

希望这有帮助。

Answer 2

首先确保您可以到达远程端：

从命令行使用 telnet（在 Linux 和 Windows 上也可用，但语法不同）

telnet host 21

如果您无法从命令行连接，请检查防火墙规则或可能是您的 FTP 服务器在不同的端口上运行？

如果您能够连接，请尝试使用普通 FTP 命令登录：

USER [email protected]
PASS yourpassword

这将使用 ACTIVE ftp 连接到远程。这是老办法。

现在大多数 ftp 服务器都使用 PASSIVE ftp。要测试尝试这个命令（从linux命令行），

ftp -v -p host

在perl中你可以这样使用被动模式：

my $f = Net::FTP->new($host, Debug =>1, Passive => 1) or die "Can't open $host\n";

我希望这会对你有所帮助。