From 8de01d30ced0c624970050d43e7d47c9d1919589 Mon Sep 17 00:00:00 2001
From: Michal Sojka <sojkam1@fel.cvut.cz>
Date: Mon, 30 Nov 2009 02:26:17 +0100
Subject: [PATCH] Added script to generate gnuplot data from results

---
 results/gen-gnuplot.pl | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100755 results/gen-gnuplot.pl

diff --git a/results/gen-gnuplot.pl b/results/gen-gnuplot.pl
new file mode 100755
index 0000000..2eb4385
--- /dev/null
+++ b/results/gen-gnuplot.pl
@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+
+use List::Util qw(first max maxstr min minstr reduce shuffle sum);
+
+while (glob "[0-9][0-9]*") {
+    $dir = $_;
+    next unless -d $dir;
+    open G, '>', "$dir.dat";
+    while (glob "$dir/result-agregate-*") {
+	$file = $_;
+	($x) = m/(\d+)$/;
+	open F, '<', "$file";
+	@A = ();
+	@S = ();
+	while (<F>) {
+	    ($avg, $stddev) = m|avg=1/([^ ]+).*stddev=([\d/.]+)|;
+	    #print G "$x $avg ",eval($stddev),"\n";
+	    push @A, $avg;
+	    push @S, eval($stddev);
+	}	
+	printf G "%d %5.2f %7.5f\n", $x, sum(@A)/scalar @A, sum(@S)/scalar @S;
+	close(F);
+    }
+    close(G);
+}
-- 
2.39.2