tests/prest/helpers/retex

   1 #!/usr/local/bin/perl -p
   2
   3 # $Id: retex 757 2006-01-26 16:53:09Z marknodine $
   4
   5 # Converts an HTML file to a regular-expression HTML
   6
   7 # Protect regular expression characters (do this FIRST)
   8 s/([\(\)\[\]\{\}\.\+\*\?\|\\\^\$\@\%])/\\$1/g;
   9
  10 # Don't require match on date
  11 s/(\\date\\\{)(.*)(\\\})/$1($2|.*)$3/;