results/gen-gnuplot.pl

   1 #!/usr/bin/perl
   2
   3 use List::Util qw(first max maxstr min minstr reduce shuffle sum);
   4
   5 while (glob "*") {
   6     $dir = $_;
   7     next unless -d $dir;
   8     open G, '>', "$dir.dat";
   9     while (glob "$dir/result-agregate-*") {
  10         $file = $_;
  11         ($x) = m/(\d+)$/;
  12         open F, '<', "$file";
  13         @A = ();
  14         @S = ();
  15         while (<F>) {
  16             ($avg, $stddev) = m|avg=1/([^ ]+).*stddev=([\d/.]+)|;
  17             #print G "$x $avg ",eval($stddev),"\n";
  18             push @A, $avg;
  19             push @S, eval($stddev);
  20         }
  21         printf G "%d %5.2f %7.5f\n", $x, sum(@A)/scalar @A, sum(@S)/scalar @S;
  22         close(F);
  23     }
  24     close(G);
  25 }