如何檢查遠程計算機是否可以在perl中ping通

Question

我需要檢查遠程計算機是否正在ping，以便我可以對該計算機執行ssh並在那裏執行命令。如何在perl中執行此檢查？

Answer 1

Net::Ping，但這是一個愚蠢的做法。如果你想連接SSH，只需要做，如果你不能處理失敗。

如果網絡接口響應ping，這不能保證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 
}