Re: Net::Ping output

[Anonymous Monk]

Net::Ping does not generate any output by itself, but you should be able to calculate any values you need yourself. From the POD:

    # High precision syntax (requires Time::HiRes)
    $p = Net::Ping->new();
    $p->hires();
    ($ret, $duration, $ip) = $p->ping($host, 5.5);
    printf("$host [ip: $ip] is alive (packet return time: %.2f ms)\n",
+ 1000 * $duration)
      if $ret;
    $p->close();

Do you need help in making a basic pinging loop, or calculating minimum, maximum, average, standard deviation? Or finding the host's reverse DNS?

[gaurav]

Actually I want the same output as System-Ping command say, Tx packet,Rx Packets,TTL,RTT(max,min,avg),packet-loss.

[Anonymous Monk]

And you can get the same output. Ping n times, collect results in an array, calculate values, print them out (if necessary). Which part were you having trouble with?

[gaurav]

I am sorry ,but didn't get you .would you please elaborate more,because I have seen this code & it does not seems like to draw the required values

$p = Net::Ping->new();
    $p->hires();
    ($ret, $duration, $ip) = $p->ping($host, 5.5);
    printf("$host [ip: $ip] is alive (packet return time: %.2f ms)\n",
+ 1000 * $duration)
      if $ret;
    $p->close();

Now please tell me how can I calculate RTT,how I can get transmitted packets,recieved packets.Please!!!