| … | |
… | |
| 82 | } |
82 | } |
| 83 | |
83 | |
| 84 | push @ranges, [$lo, $hi, $kbps && $pktsz / ($kbps * 1000)]; |
84 | push @ranges, [$lo, $hi, $kbps && $pktsz / ($kbps * 1000)]; |
| 85 | } |
85 | } |
| 86 | |
86 | |
| 87 | AnyEvent::FastPing::register_cb { |
87 | AnyEvent::FastPing::register_cb sub { |
| 88 | for (@{$_[0]}) { |
88 | for (@{$_[0]}) { |
| 89 | printf "%s %d %g\n", |
89 | printf "%s %d %g\n", |
| 90 | (4 == length $_->[0] ? inet_ntoa $_->[0] : Socket6::inet_ntop (&AF_INET6, $_->[0])), |
90 | (4 == length $_->[0] ? inet_ntoa $_->[0] : Socket6::inet_ntop (&AF_INET6, $_->[0])), |
| 91 | $_->[2], |
91 | $_->[2], |
| 92 | $_->[1]; |
92 | $_->[1]; |
