Work with performance data.

diff --git a/matrixgen.pl b/matrixgen.pl
index e567078..69b12b6 100755 (executable)
--- a/matrixgen.pl
+++ b/matrixgen.pl
@@ -90,6 +90,13 @@ foreach my $i (0..$#list) {
        if ($scen =~ /perf/i) {
                $list{perf}{$scen}{$plat} = { 'component' => $item[0], 'platform' => $plat, 'dir' => $item, 'date' => $date };
 #printf STDERR "perf: $scen, $item[0], $plat\n";
+               if ($scen =~ /^Performance test (....-..-..) ?([a-z]?)$/) {
+                       my $cvsdate = $1;
+                       my $l = $2;
+                       if ($l eq '') { $l = 'a'; }
+                       $list_perf{$cvsdate}{$l} = $list{perf}{$scen}{$plat};
+#printf STDERR "perf hist: $cvsdate ($l): $item\n";
+               }
        } else {
                $list{$scen}{$item[0]}{$plat} = { 'component' => $item[0], 'platform' => $plat, 'dir' => $item, 'date' => $date };
        }
@@ -264,3 +271,26 @@ print qq{          </td>
 </html>
 };
 
+if (keys %list_perf) {
+       open FAH, '>', 'perf-avg.csv';
+       open FBH, '>', 'perf-big.csv';
+       foreach my $d (sort keys %list_perf) {
+               printf FAH "$d  ";
+               printf FBH "$d  ";
+               foreach my $l ('a', 'b', 'c', 'd', 'e', 'f') {
+                       if (exists $list_perf{$d}{$l} and $list_perf{$d}{$l}{result2} ne '-') {
+                               my @a = split / /, $list_perf{$d}{$l}{result2};
+                               printf FAH "$a[0]";
+                               printf FBH "$a[1]";
+                       }
+                       if ($l ne 'f') {
+                               printf FAH "\t";
+                               printf FBH "\t";
+                       }
+               }
+               printf FAH "\n";
+               printf FBH "\n";
+       }
+       close FAH;
+       close FBH;
+}