원격 기계가 펄에서 ping 할 수 있는지 확인하는 방법

Question

원격 기계가 ping을하고 있는지 확인하여 그 기계에 ssh를 수행하고 거기에서 명령을 실행할 수 있는지 확인해야합니다. 펄에서이 검사를하는 방법?

Answer 1

Net::Ping하지만이 방법은 어리석은 방법입니다. SSH에 연결하고 싶다면 그냥 해보고 그렇지 않으면 실패를 처리하십시오.

네트워크 인터페이스가 핑에 응답하는 경우 이는 SSH가 작동한다는 것을 보장하지 않습니다. 반대로 SSH가 작동하고 ping이 차단됩니다.

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 
}