filter/process_re2filtermatch.pl

   1 #!/usr/bin/perl
   2 #
   3 use strict;
   4
   5 my $re;
   6 while(<>) {
   7     chomp();
   8     # dispose of comments with their leading spaces
   9     s/\s+\#.*$//;
  10     # recode \" -> "
  11     s/\\\"/\"/g;
  12     # double all \ (twice)
  13     s/\\/\\\\/g;
  14     s/\\/\\\\/g;
  15     # escape " again
  16     s/\"/\\\"/g;
  17     # remove all space
  18     s/\s+//g;
  19     # add to re
  20     $re .= $_;
  21 }
  22 print "\"$re\"\n";