From: František Dvořák <valtri@civ.zcu.cz>
Date: Sun, 18 Mar 2012 14:44:39 +0000 (+0100)
Subject: Work with performance data.
X-Git-Url: http://scientific.zcu.cz/git/?a=commitdiff_plain;h=ac89d56fd3633d9b59b1607725d15794e2437567;p=meta-dashboard.git

Work with performance data.
---

diff --git a/matrixgen.pl b/matrixgen.pl
index e567078..69b12b6 100755
--- 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;
+}