Соединение отклонено при подключении хоста через Net::FTP в perl

Когда я запускаю приведенный ниже код через скрипт 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: в соединении отказано в строке 10 ftp_check.pl».


connection ftp connection-refused perl
person Mayur Patoliya    schedule 15.02.2016    source источник
comment
Похоже, что на удаленном узле 111.118.248.24 не работает FTP-сервер или доступ к FTP заблокирован вашим брандмауэром. Можете ли вы подключиться к этому серверу через командную строку? Какую команду вы вводите?   -  person Jim Garrison    schedule 15.02.2016

Ответы (1)


arrow_upward
0
arrow_downward

Я полагаю, ваш сервер работает нормально, на всякий случай вы можете сделать несколько пингов на нем. В любом случае, есть ли у вас возможность запустить в терминале (с помощью ssh или какого-либо клиента, такого как шпатлевка, если вы пользователь Windows) следующие команды:

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

Теперь вы можете увидеть, есть ли FTP-сервер, работающий в режиме прослушивателя.

Вторым шагом будет использование какого-либо ftp-клиента для проверки того, что вы можете правильно подключиться к вашему FTP-серверу, просто чтобы увидеть, есть ли промежуточное правило брандмауэра, на самом деле вы можете запустить «iptables -L» на сервере to, но будет проще использовать какой-нибудь ftp-клиент для проверки вашего ftp-сервера.

Другим предложением было бы использовать что-то более безопасное, а не net::ftp-module. В Perl есть хорошие CPAN-модули для SFTP (Net::FTP).

Ваше здоровье.

person Denis Komnenovic    schedule 15.02.2016