|
|
|
|
|
|
|
|
|
|
|
| PingER.PM |
||||||||||
| n | sub ping_it
{ |
|||||||||
| n | my
($ping_cmd,$dest_name,$dest_ip, |
|||||||||
| $ping_interval,
$ping_size, $ping_count) = @_; |
||||||||||
| n | … … … … |
|||||||||
| n | return
($time,
$packets_sent, $packets_rcvd, |
|||||||||
| $min, $avg, $max, \@seqno, \@pingtimes); |
||||||||||
| n | } |
|||||||||
|
|
|
|
|
|
|
|
|
| timeping.pl |
||||||||
| n | use
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); |
||||||||
