Return to testPatterns.pl CVS log

Up to [home] / email2rss

converts certain emails to rss

#!/usr/bin/perl

my $basedir = "/home/ws/.procmail";

# read patterns from the patterns file
open(FILE, "$basedir/patterns");
my @patterns = <FILE>;
close(FILE);

chomp foreach (@patterns);

open(FILE, "$basedir/log.email");
my @lines = <FILE>;
close(FILE);

foreach my $line (@lines)
{
    foreach my $p (@patterns)
    {
        if ($line =~ /$p/i)
        {
            print "match: $line";
            break;
        }
    }
}
close(FILE);
exit(0);