apache2/t/gen_rx-pm.pl.in

   1 #!@PERL@
   2 #
   3 # Generates a test file for comparing @rx and @pm speed.
   4 #
   5 use strict;
   6 use Regexp::Assemble;
   7
   8 srand(424242); # We want this static, so we can compare different runs
   9
  10 my $MIN = $ARGV[0] || 0;
  11 my $MAX = $ARGV[1] || 5000;
  12 my $INC = $ARGV[2] || int($MAX * .05);
  13 my $ITERATIONS = 10000;
  14 my $MINSTRLEN = 2;
  15 my $MAXSTRLEN = 8;
  16
  17 my $match = join '', ('a' .. 'z');
  18 my @param = ();
  19 my $i=$MIN;
  20 while ($i <= $MAX) {
  21         my $ra = Regexp::Assemble->new;
  22
  23         while (@param < $i) {
  24                 unshift @param, rndstr();
  25         }
  26
  27         $ra->add(@param);
  28
  29         printf (
  30                 "# rx: %6d\n".
  31                 "{\n".
  32                 "  comment => \"rx1 %6d item(s)\",\n".
  33                 "  type => \"op\",\n".
  34                 "  name => \"rx\",\n".
  35                 "  param => qr/%s/,\n".
  36                 "  input => \"%s\",\n".
  37                 "  ret => " . (@param ? 0 : 1) . ",".
  38                 "  iterations => %d,\n".
  39                 "},\n",
  40                 $i,
  41                 $i,
  42                 (@param ? '(?:' . join('|', @param) . ')' : ""),
  43                 $match,
  44                 $ITERATIONS,
  45         );
  46
  47         printf (
  48                 "# rx-optimized: %6d\n".
  49                 "{\n".
  50                 "  comment => \"rx2 %6d item(s)\",\n".
  51                 "  type => \"op\",\n".
  52                 "  name => \"rx\",\n".
  53                 "  param => qr/%s/,\n".
  54                 "  input => \"%s\",\n".
  55                 "  ret => " . (@param ? 0 : 1) . ",".
  56                 "  iterations => %d,\n".
  57                 "},\n",
  58                 $i,
  59                 $i,
  60                 (@param ? $ra->as_string : ""),
  61                 $match,
  62                 $ITERATIONS,
  63         );
  64
  65         printf (
  66                 "# pm: %6d\n".
  67                 "{\n".
  68                 "  comment => \"pm1 %6d item(s)\",\n".
  69                 "  type => \"op\",\n".
  70                 "  name => \"pm\",\n".
  71                 "  param => \"%s\",\n".
  72                 "  input => \"%s\",\n".
  73                 "  ret => 0,".
  74                 "  iterations => %d,\n".
  75                 "},\n",
  76                 $i,
  77                 $i,
  78                 join(' ', @param ? @param : ("''")),
  79                 $match,
  80                 $ITERATIONS,
  81         );
  82
  83         $i = ($i == $MIN) ? ($i + $INC) - ($i % $INC) : $i + $INC;
  84
  85 }
  86
  87 sub rndstr {
  88         my @c = ('a' .. 'z');
  89         my $rndstr;
  90   my $max = int(rand($MAXSTRLEN - $MINSTRLEN)) + $MINSTRLEN;
  91         foreach (1 .. $max) {
  92                 $rndstr .= $c[rand @c];
  93         }
  94         # We need a string that is not in another string for "last"
  95         if ($match =~ m/$rndstr/) {
  96                 $rndstr = rndstr();
  97         }
  98         return $rndstr;
  99 }