ping networkが疎通することを確認する。

perlでnetworkが疎通することを確認しています。
Net::PINGモジュールを使用をしています。

#!/usr/bin/env perl

use Net::Ping;

my $hostname="localhost";
my $timeout=10;

my $ping= Net::Ping->new("icmp");

if ($ping->ping($hostname,$timeout)){
  print "$hostname is alive\n";
}

$ping->close();
スポンサードリンク