aboutsummaryrefslogtreecommitdiff
path: root/bin/med.awk
diff options
context:
space:
mode:
Diffstat (limited to 'bin/med.awk')
-rw-r--r--bin/med.awk10
1 files changed, 9 insertions, 1 deletions
diff --git a/bin/med.awk b/bin/med.awk
index aee120cb..0f4d6086 100644
--- a/bin/med.awk
+++ b/bin/med.awk
@@ -1,7 +1,13 @@
# Get the median of a list of numbers
+BEGIN {
+ self = "med"
+ stderr = "cat >&2"
+}
{ vals[NR] = $1 }
NR > 1 && vals[NR] < vals[NR-1] && !warn++ {
- printf "med: Input not sorted!\n" | "cat >&2"
+ if (!stderr)
+ stderr = "cat >&2"
+ printf "%s: Input not sorted!\n", self | stderr
}
END {
# Error out if we read no values at all
@@ -12,6 +18,8 @@ END {
else
med = (vals[NR/2] + vals[NR/2+1]) / 2
print med
+ if (stderr)
+ close(stderr)
if (warn)
exit(1)
}