convert/regextest.pl

   1 #!/usr/bin/perl
   2
   3 open RXTEST, "<", "regextest.txt";
   4 while( <RXTEST> ) {
   5   next if ( /\s*#/ );
   6   my $before = $_;
   7
   8   # This is the RegEx we are testing.  I think that this could
   9   # be flawed in some situations that do not occur at present
  10   # in the Catalyst APMS data.
  11
  12   s/((?<="")|(?<!"))"(?=( |$))/|/;
  13
  14
  15   my $after = $_;
  16   $_ = <RXTEST>;
  17   if ( $after ne $_ ) {
  18     print "! ! ! ! ! Mismatch ! ! ! ! ! \n";
  19     print "Before: $before";
  20     print " After: $after";
  21     print "Answer: $_";
  22   }
  23 }