apache2/t/csv_rx-pm.pl.in

   1 #!@PERL@
   2 #
   3 # Example to generate CSV performance data from test results taken from
   4 # test generated by gen_rx-pm.pl.
   5 #
   6 use strict;
   7
   8 my %H = ();
   9 while (<>) {
  10         chomp;
  11         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.*/);
  12
  13         next unless defined($value);
  14         $H{$n}{$label} = $value;
  15
  16 }
  17
  18 printf "%s, %s, %s, %s\n", qw(N rx1 rx2 pm1);
  19 for (sort {$a <=> $b} keys %H) {
  20         printf "%s, %s, %s, %s\n", $_, $H{$_}{rx1}, $H{$_}{rx2}, $H{$_}{pm1}
  21 };