[unix-history] / usr / src / usr.sbin / traceroute / mean.awk

#!/bin/awk -f
#
# Copyright (c) 1990 The Regents of the University of California.
# All rights reserved.
#
# This code is derived from software contributed to Berkeley by
# Van Jacobson.
#
# %sccs.include.redist.sh%
#
#	@(#)mean.awk	5.2 (Berkeley) %G%
#
/^ *[0-9]/	{
	# print out the average time to each hop along a route.
	tottime = 0; n = 0;
	for (f = 5; f <= NF; ++f) {
		if ($f == "ms") {
			tottime += $(f - 1)
			++n
		}
	}
	if (n > 0)
		print $1, tottime/n, median
}
Commit	Line	Data
296ce596 KB	1	#!/bin/awk -f
	2	#
	3	# Copyright (c) 1990 The Regents of the University of California.
	4	# All rights reserved.
	5	#
	6	# This code is derived from software contributed to Berkeley by
	7	# Van Jacobson.
	8	#
	9	# %sccs.include.redist.sh%
	10	#
	11	# @(#)mean.awk 5.2 (Berkeley) %G%
	12	#
4b88417b KB	13	/^ *[0-9]/ {
	14	# print out the average time to each hop along a route.
	15	tottime = 0; n = 0;
	16	for (f = 5; f <= NF; ++f) {
	17	if ($f == "ms") {
	18	tottime += $(f - 1)
	19	++n
	20	}
	21	}
	22	if (n > 0)
	23	print $1, tottime/n, median
	24	}