mirror of
https://github.com/owasp-modsecurity/ModSecurity.git
synced 2025-09-29 19:24:29 +03:00
Redo build system to properly use autotools and avoid compilation with apxs util.
This commit is contained in:
21
tests/csv_rx-pm.pl.in
Executable file
21
tests/csv_rx-pm.pl.in
Executable file
@@ -0,0 +1,21 @@
|
||||
#!@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}
|
||||
};
|
Reference in New Issue
Block a user