From 9ca1d24d30a485300b9486b18c068660da630cc1 Mon Sep 17 00:00:00 2001
From: John Wiegley <johnw@newartisans.com>
Date: Thu, 13 May 2004 18:37:12 -0400
Subject: initial import into Darcs

---
 scripts/mean | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100755 scripts/mean

(limited to 'scripts/mean')

diff --git a/scripts/mean b/scripts/mean
new file mode 100755
index 00000000..3c6f779a
--- /dev/null
+++ b/scripts/mean
@@ -0,0 +1,27 @@
+#!/usr/bin/perl
+
+$last = $ARGV[-1];
+splice(@ARGV, -1);
+
+open(PIPE, "ledger -MG @ARGV register $last |") || die;
+@values = ();
+while (<PIPE>) {
+    ($date, $value) = split;
+    push @values, $value;
+}
+close(PIPE);
+
+@values = sort @values;
+splice(@values, 0, 1);
+splice(@values, -1);
+
+$value = 0.0;
+for $item (@values) {
+  $value += $item;
+}
+
+if (@values) {
+    printf("%.2f\n", $value / @values);
+} else {
+    die "There are no values to average!\n";
+}
-- 
cgit v1.2.3