Как проверить, может ли удаленный компьютер пинговать в Perl

Question

Мне нужно проверить, отправляет ли пинг удаленная машина, чтобы я мог сделать ssh с этой машиной и выполнить там команды. как сделать эту проверку в Perl?

Answer 1

Net::Ping, но это глупый способ сделать это. Если вы хотите соединиться с SSH, просто сделайте это и обработайте ошибку, если вы не можете.

Если сетевой интерфейс отвечает на команду ping, это не гарантирует работоспособность SSH. И наоборот, SSH может работать, и пинг блокируется.

Answer 2

Простой и быстрый тест, который хост прослушивает на конкретном порту, можно выполнить с помощью IO :: Socket :: INET

use IO::Socket::INET;
my $address_tuple = "$ip:$port";
my $test_sock = IO::Socket::INET->new(PeerAddr => $address_tuple, Timeout  => 0.15);
if ( $test_sock) {
    # Host is up and appears to be listening on that port
    $test_sock->close();
}
else {
    # Host doesn't appear to be listening on that port
}