various updates

[exim-website.git] / filter / test_regexp.pl

diff --git a/filter/test_regexp.pl b/filter/test_regexp.pl
new file mode 100644 (file)
index 0000000..b16d9fa
--- /dev/null
+++ b/filter/test_regexp.pl
@@ -0,0 +1,24 @@
+#!/usr/bin/perl
+#
+# Test a regexp against a file (message)
+#
+use strict;
+use FileHandle;
+use Carp;
+
+my $refile = shift;
+my $infile = shift;
+
+my $rfh = FileHandle->new($refile, 'r')|| croak;
+my @relines = <$rfh>;
+grep(s/\s*\#.*$//, @relines);
+chomp(@relines);
+my $repat = join('', @relines);
+my $re = qr{$repat}ix;
+
+my $infh = FileHandle->new($infile, 'r')|| croak;
+my $in = join('', <$infh>);
+$in =~ tr/\r\n/ /;
+
+print "no " unless ($in =~ /$re/);
+print "match\n";