Added script to generate gnuplot data from results

diff --git a/results/gen-gnuplot.pl b/results/gen-gnuplot.pl
new file mode 100755 (executable)
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);
+}