1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
#!/usr/bin/perl
# Parse a traceroute that has ICMP flags in it.
use strict;
use warnings;
use Test::More tests => 2;
use Socket;
use Net::Traceroute;
require "t/testlib.pl";
my $tr = parsefh(*DATA);
is($tr->hop_query_stat(11, 1), TRACEROUTE_UNREACH_FILTER_PROHIB);
is($tr->hop_query_host(11, 2), "69.81.18.12");
# Note that this traceroute is drawn from a debian linux box.
__END__
traceroute to 69.81.18.12 (69.81.18.12), 30 hops max, 40 byte packets
1 128.30.16.4 0.331 ms 0.398 ms 0.434 ms
2 128.30.0.253 0.283 ms 0.361 ms 0.378 ms
3 18.4.7.1 0.412 ms 0.493 ms 0.741 ms
4 18.168.1.18 0.720 ms 0.807 ms 0.841 ms
5 18.168.1.50 0.824 ms 1.010 ms 0.992 ms
6 207.210.142.233 0.637 ms 0.638 ms 0.675 ms
7 207.210.142.18 22.941 ms 23.127 ms 23.156 ms
8 206.223.119.4 23.795 ms 23.789 ms 23.995 ms
9 69.17.87.23 49.330 ms 49.103 ms 49.098 ms
10 69.17.83.202 51.892 ms 52.239 ms 52.875 ms
11 69.81.18.12 70.229 ms !X 77.290 ms !X 75.179 ms !X
|
