#!/usr/bin/perl -w

$normalText= "Der Weihnachtsmann kommt heim. Cäsar kam, sah und siegte. Menschen sind komplex. Luna mag Tiere, bringt Wasser mit und geht wieder nach Hause.";

#Adjektive
$adjektive= "adjektive.txt";
open(DATEI_ADJ, "<$adjektive");

foreach (<DATEI_ADJ>) {
	@adjektivliste= split(/\n/,$_); #adjektivliste in adjektive aufspalten
	foreach $listenelement (@adjektivliste) { #tags entfernen
		@adjektive= split(/\/.+/,$listenelement);
		foreach $adjektiv (@adjektive) { #endgültige adjektivliste durchgehen
			if ($adjektiv=~ m/.*?a".*?/g) { #sonderzeichen umwandeln ä
				$adjektiv=~ s/a"/ä/g;
			}
			if ($adjektiv=~ m/.*?o".*?/g) { #sonderzeichen umwandeln ö
				$adjektiv=~ s/o"/ö/g;
			}
			if ($adjektiv=~ m/.*?u".*?/g) { #sonderzeichen umwandeln ü
				$adjektiv=~ s/u"/ü/g;
			}
			if ($adjektiv=~ m/.*?sS.*?/g) { #sonderzeichen umwandeln ß
				$adjektiv=~ s/sS/ß/g;
			}
			push (@adj,$adjektiv);
		}
	}
}


#Artikel
$artikel= "artikel.txt";
open(DATEI_ART, "<$artikel");

foreach (<DATEI_ART>) {
	@art= split(/,/,$_); #artikelliste in artikel aufspalten
}

#Adverben
$adverben= "adverben.txt";
open(DATEI_AD, "<$adverben");

foreach (<DATEI_AD>) {
	@ad= split(/,/,$_); #adverbenliste in artikel aufspalten
}
foreach (@ad) { #bearbeiten adverben liste
	if ($_=~ m/.*?ss.*?/g) {
		$_=~ s/ss/ß/g;
	}
}

#Pronomen
$pronomen= "pronomen.txt";
open(DATEI_PRO, "<$pronomen");

foreach (<DATEI_PRO>) {
	@pro= split(/,/,$_); #pronomenliste in artikel aufspalten
}

#Präpositionen
$praposition= "präpositionen.txt";
open(DATEI_PRA, "<$praposition");

foreach (<DATEI_PRA>) {
	@pra= split(/,/,$_); #präpositionsliste in artikel aufspalten
}

#Konjunktionen
$konjunktionen= "konjunktionen.txt";
open(DATEI_KON, "<$konjunktionen");

foreach (<DATEI_KON>) {
	@kon= split(/,/,$_); #konjunktionsliste in artikel aufspalten
}

#Interjektionen
$interjektionen= "interjektionen.txt";
open(DATEI_INT, "<$interjektionen");

foreach (<DATEI_INT>) {
	@int= split(/,/,$_); #interjektionsliste in artikel aufspalten
}

push (@alles_ausser_verb,@adj,@art,@ad,@pro,@pra,@kon,@int);
@anapher_0=();

@saetze_0_anapher= split(/(?<=[.!?])\s*/,$normalText);
$counter=0;
@anapher_0=();
foreach $satz (@saetze_0_anapher) {
	$flag = 0;
	@woerter= split(/ /,$satz);
	foreach $wort (@woerter) {
		if ($wort=~ m/[A-Z].*/) {
			push(@np,$wort);
		}
		foreach $artikel (@art) {
			if ($wort=~ m/\b$artikel\b/) {
			push(@np,$wort);
			}
		}
		foreach $alles_ausser_verb (@alles_ausser_verb) {
			if (($wort!~ m/($alles_ausser_verb|[A-Z].*)/) and ($satz=~ m/und $wort/g) and $flag == 0) {
				unless ($anapher_0[$counter] eq $satz) {
					push(@anapher_0,$satz);
					$counter++;
				}
				$flag = 1;
			}
		}
	}
}

foreach $anapher_satz (@anapher_0) {
	print "Es wurde eine 0-Anapher gefunden. Satz:\n$anapher_satz\nWählen Sie einen Ersatz aus folgenden Nomen:\n";
}