#!@PERL@

#

# Example to generate CSV performance data from test results taken from

# test generated by gen_rx-pm.pl.

#

use strict;

my %H = ();

while (<>) {

	chomp;

	my ($op, $label, $n, $i, $value) = (m/\s*\d+\)\s+\S+\s+"([^"]*)"\s+(\S+)\s+(\d+) item\(s\): passed\s+\((\d+)\s+\@\s+([-\+\d\.E]+) msec\s.*/);

	next unless defined($value);

	$H{$n}{$label} = $value;

}

printf "%s, %s, %s, %s\n", qw(N rx1 rx2 pm1);

for (sort {$a <=> $b} keys %H) {

	printf "%s, %s, %s, %s\n", $_, $H{$_}{rx1}, $H{$_}{rx2}, $H{$_}{pm1}

};