filter/test_regexp.pl

   1 #!/usr/bin/perl
   2 #
   3 # Test a regexp against a file (message)
   4 #
   5 use strict;
   6 use FileHandle;
   7 use Carp;
   8
   9 my $refile = shift;
  10 my $infile = shift;
  11
  12 my $rfh = FileHandle->new($refile, 'r')|| croak;
  13 my @relines = <$rfh>;
  14 grep(s/\s*\#.*$//, @relines);
  15 chomp(@relines);
  16 my $repat = join('', @relines);
  17 my $re = qr{$repat}ix;
  18
  19 my $infh = FileHandle->new($infile, 'r')|| croak;
  20 my $in = join('', <$infh>);
  21 $in =~ tr/\r\n/ /;
  22
  23 print "no " unless ($in =~ /$re/);
  24 print "match\n";