当我当时通过 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 行连接被拒绝。”
我想你的服务器工作正常，只是为了你可以在它上面做一些 ping。无论如何，您是否有可能在终端中运行（如果您是 Windows 用户，则使用 ssh 或诸如 putty 之类的客户端）执行以下命令：
netstat -tulpena | grep -i LIST <<ENTER>>
现在您可以看到是否有一个以侦听器模式运行的 FTP 服务器。
第二步是使用一些 ftp-client 来检查你是否可以正确连接到你的 FTP-Server，只是看看两者之间是否有防火墙规则，实际上你可以在服务器上运行“iptables -L”到，但使用一些 ftp-client 来验证您的 ftp-server 会更容易。
另一个建议是使用更安全的东西，而不是 net::ftp-module。Perl 为 SFTP (Net::FTP) 提供了不错的 CPAN 模块。
干杯。