Ping & Log

ping.pl

#!/usr/bin/perl
use Net::Ping;
use Time::HiRes;
$host = $ARGV[0];
while (1) {
    open $fd, '>>:encoding(UTF-8)', 'ping.pl.log';
    $p = Net::Ping->new("icmp");
    $p->hires();
    ($ret, $duration, $ip) = $p->ping($host, 2);    #config ping timeout=2sec.
    print $fd scalar(localtime);
    print $fd "\n";
    print $fd sprintf("$host [ip: $ip] is alive (delay: %.2f ms)\n", 1000 * $duration) if $ret;
    $p->close();
    close $fd;
    sleep 1;    #waiting time between two "ping"
}