#!/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";