# awk program to scan peerstats files and report errors/statistics # # usage: awk -f peer.awk peerstats # # format of peerstats record # MJD sec ident stat offset (s) delay (s) disp (s) # 49235 11.632 128.4.2.7 f414 -0.000041 0.21910 0.00084 # # format of output dataset (time values in milliseconds) # peerstats.19960706 # ident cnt mean rms max delay dist disp # ========================================================================== # 140.173.112.2 85 -0.509 1.345 4.606 80.417 49.260 1.092 # 128.4.1.20 1364 0.058 0.364 4.465 3.712 10.540 1.101 # 140.173.16.1 1415 -0.172 0.185 1.736 3.145 5.020 0.312 #... # BEGIN { n = 0 MAXDISTANCE = 1.0 } # # scan all records in file # # we toss out all distances greater than one second on the assumption the # peer is in initial acquisition # { if (NF >= 7 && ($7 + $6 / 2) < MAXDISTANCE) { i = n for (j = 0; j < n; j++) { if ($3 == peer_ident[j]) i = j } if (i == n) { peer_ident[i] = $3 peer_tmax[i] = peer_dist[i] = -1e9 peer_tmin[i] = 1e9 n++ } peer_count[i]++ if ($5 > peer_tmax[i]) peer_tmax[i] = $5 if ($5 < peer_tmin[i]) peer_tmin[i] = $5 dist = $7 + $6 / 2 if (dist > peer_dist[i]) peer_dist[i] = dist peer_time[i] += $5 peer_time_rms[i] += $5 * $5 peer_delay[i] += $6 peer_disp[i] += $7 } } END { printf " ident cnt mean rms max delay dist disp\n" printf "==========================================================================\n" for (i = 0; i < n; i++) { peer_time[i] /= peer_count[i] peer_time_rms[i] = sqrt(peer_time_rms[i] / peer_count[i] - peer_time[i] * peer_time[i]) peer_delay[i] /= peer_count[i] peer_disp[i] /= peer_count[i] peer_tmax[i] = peer_tmax[i] - peer_time[i] peer_tmin[i] = peer_time[i] - peer_tmin[i] if (peer_tmin[i] > peer_tmax[i]) peer_tmax[i] = peer_tmin[i] printf "%-15s%5d%9.3f%9.3f%9.3f%9.3f%9.3f%9.3f\n", peer_ident[i], peer_count[i], peer_time[i] * 1e3, peer_time_rms[i] * 1e3, peer_tmax[i] * 1e3, peer_delay[i] * 1e3, peer_dist[i] * 1e3, peer_disp[i] * 1e3 } } |