Question

当我通过perl脚本运行下面的代码时，我总是得到连接被拒绝的错误，所以请任何机构都可以建议解决这个问题。

ftp_check.pl：

#!/usr/bin/perl
use strict;
use warnings;
use Net::FTP;


my $host = '111.118.248.24';

#-- connect to ftp server
my $ftp = Net::FTP->new($host, Debug => 1) or die "Error connecting to $host: $!";

消息变得像“错误连接到111.118.248.24：连接在ftp_check.pl第10行被拒绝。”

Answer 1

我认为你的服务器工作正常，只是因为你可以对它进行一些ping操作。无论如何，你有可能在终端（使用ssh或像putty这样的客户端，如果你是一个Windows用户）运行命令：

netstat -tulpena | grep -i LIST <<ENTER>>

现在您可以看到是否有一个以侦听模式运行的FTP服务器。

第二步是使用一些ftp-client来检查，你可以正确连接你的FTP服务器，只是看看它们之间是否有防火墙规则，实际上你可以运行“iptables -L”在服务器上，但只是使用一些ftp-client来验证你的ftp服务器会更容易。

另一个建议是使用更安全的东西而不是net :: ftp-module。 Perl为SFTP（Net :: FTP）提供了很好的CPAN模块。

干杯。

在Perl中通过Net :: FTP连接Host时拒绝连接

1 个答案: