prest/tbin/retex

   1 #!/usr/local/bin/perl5.8.8 -p
   2 # $Id: retex 757 2006-01-26 16:53:09Z marknodine $
   3 use bytes;
   4 BEGIN {
   5     if ($[ > 5.008) { eval "use bytes"; print STDERR "Here\n"}
   6 }
   7
   8 # Converts an HTML file to a regular-expression HTML
   9
  10 # Protect regular expression characters (do this FIRST)
  11 s/([\(\)\[\]\{\}\.\+\*\?\|\\\^\$\@\%])/\\$1/g;
  12
  13 # Don't require match on date
  14 s/(\\date\\\{)(.*)(\\\})/$1($2|.*)$3/;
  15