nPingER.PM
nsub ping_it {
nmy
($ping_cmd,$dest_name,$dest_ip, $ping_interval, $ping_size,
$ping_count) = @_;
n… … … …
nreturn ($time, $packets_sent, $packets_rcvd, $min, $avg, $max, \@seqno, \@pingtimes);
n}
ntimeping.pl
nuse
IEPM::PingER;
n($time, $packets_sent,
$packets_rcvd, $min, $avg, $max, $seqno, $pingtimes) = ping_it($ping_cmd,$dest_name,$dest_ip,
$ping_interval, 1000, $ping_count);