add bench summary script
commitfbff84ef494de44780b9c3a113ec5e32863c922b
authorMark Lentczner <markl@glyphic.com>
dateFri 1 Jan 2010, 02:38 (17 years ago)
parent560df8f
tests/summarize-bench-results.plnew file+14
@@ -0,0 +1,14 @@
1+#!/bin/perl
2+
3+
4+while(<>) {
5+ if (/^benchmarking (.*)$/) {
6+ $name = $1;
7+ }
8+ if (/^mean:\s*([\d.]*) (\w*),/) {
9+ $mean = 1 * $1;
10+ $units = $2;
11+
12+ printf "%-30s %10.2f %2s\n", $name, $mean, $units;
13+ }
14+}