#!/usr/bin/perl

$#ARGV >= 0 || die "usage: read-results file";

open(IN, $ARGV[0]) || die "can't read $ARGV[0]";

$avg = 0.0;
$start = 0;
$first = 0.0;
$cnt = 0;

while (<IN>) {
	if (/Time: (\d+\.\d+)/) {
		$start++;
		$avg += $1;
		$cnt++;
	} elsif (/^\s*$/ && $start) {
		$avg = $avg / $cnt;
		$cnt = 0;
		$start = 0;
		print "Avg: $avg\n";
		if ($first) {
			printf "  (%f)\n", (($avg - $first) / $first) * 100;
		} else {
			$first = $avg;
		}
		$avg = 0.0;
	}
	print;
}