#!/usr/bin/perl

use 5.010;
use strict;
use warnings;
use Data::Dumper;

my $ueb = 0;
my $anz = 0;
my $zeile = 0;
my $spam;

#Filter-Schlagwörter Zeilenweise in ein Array einlesen ('<' NUR lesen)
open (FILTER, '<',"Filter.txt") or die $!;
        my @filter = <FILTER>;
        #Per chomp werden die Zeilenumbrüche entfernt
        chomp @filter;
close (FILTER);
#print @filter;

#Mail.txt öffnen und Zeilenweise in ein Array einlesen ('<' NUR lesen)
open (MAIL, '<', "Email.txt") or die $!;
                my @mail = <MAIL>;
close (MAIL);
#print "@mail\n";
#Schleife erstellen, bei jedem Druchgang wird ein neuer $spam aus dem Array @filter gewählt    
foreach $spam (@filter) {
        $zeile=0;
        $anz++;
        #print "|$spam| \n";
        foreach my $mail (@mail){
                $zeile++;
                my $position = index($mail, $spam);
                if ($position != -1){
                        #Ausgabe der Position etc
                        print "$spam    Zeile: $zeile Position: ";
                        print "$position \n";
                        $ueb++;
                        }
                }
}

#Ausgabe
print "Es wurden $anz Filter verwendet und $ueb Uebereinstimmungen gefunden\n";