Perl:Net::Ping;簡介與範例－拉不拉多的夢幻世界

Jul 07 Mon 2008 16:22
Perl:Net::Ping;簡介與範例

Net::Ping 模組可以用來檢查remote 主機是不還活著,當然remote host的ping是要開著才能使用以下的範例
Net::Ping 可以在此下載

看完了上面的文章後,寫了這個sample來測試一下此model的功能
以下的範例只是測試了remote host 是否有反應 . $ip 請輸人你要測試的主機ip 這樣即可測試了

use Net::Ping ;
my $ip ="" ;
my $p = Net::Ping->new( "icmp", 1, 64 );
if ( $p->ping($ip) )
{
print "$ip answered\n";
}
else
{
print "$ip did not answer\n";
}
$p->close();