1
0
mirror of https://git.FreeBSD.org/src.git synced 2024-12-23 11:18:54 +00:00
freebsd/contrib/traceroute/median.awk
Bill Fenner 38a623ef96 Virgin import of LBL traceroute version 1.3.2.
Obtained from: ftp://ftp.ee.lbl.gov/traceroute.tar.Z on 30-Sep-1996.
1996-09-30 19:09:55 +00:00

30 lines
545 B
Awk

/^ *[0-9]/ {
# print out the median time to each hop along a route.
tottime = 0; n = 0;
for (f = 5; f <= NF; ++f) {
if ($f == "ms") {
++n
time[n] = $(f - 1)
}
}
if (n > 0) {
# insertion sort the times to find the median
for (i = 2; i <= n; ++i) {
v = time[i]; j = i - 1;
while (time[j] > v) {
time[j+1] = time[j];
j = j - 1;
if (j < 0)
break;
}
time[j+1] = v;
}
if (n > 1 && (n % 2) == 0)
median = (time[n/2] + time[(n/2) + 1]) / 2
else
median = time[(n+1)/2]
print $1, median
}
}