@textkorpora=glob('dlf*.txt');
$anzahl=scalar(@textkorpora);

$suchstring=<STDIN>;
chomp($suchstring);

open(DATEI,'>',"satz_suche.txt");
close(DATEI);

open(FILE,'>',"satz_suche_ergebnis.txt");
print FILE "-------------------------------------\n";
print FILE "[Suchanfrage]\n";
print FILE "$suchstring\n";
print FILE "-------------------------------------\n\n";
print FILE "[Lokalisiert in den Dateien]\n\n";
close(FILE);

while ($textpos <= $anzahl)
{

open(TEXTDAT,'<',@textkorpora[$textpos]);
while(<TEXTDAT>)
{
chomp($_);

$korpustext=$korpustext.$_;

}
close(TEXTDAT);



if($korpustext =~ /$suchstring/g) 
{
open(DATEI,'>>',"satz_suche.txt");
print DATEI "@textkorpora[$textpos]\n";
close(DATEI);

open(FILE,'>>',"satz_suche_ergebnis.txt");
print FILE "@textkorpora[$textpos]\n";
$textpos++;
$gefunden++;
$korpustext="";
close(FILE);
}
else
{
$textpos++;
$korpustext="";
}
}

if ($gefunden==0)

{
open(FILE,'>>',"satz_suche_ergebnis.txt");
print FILE "Fehler: ~Benutzereingabe wurde nicht gefunden.~\n";
close(FILE);
print "Ausdruck/".$suchstring. "/\nwurde nicht gefunden.\n";
}
else
{
open(FILE,'<',"satz_suche.txt");
while(<FILE>)
{
chomp($_);
s/txt/tones/g;
push(@tonesarray,$_);
s/tones/syllables/g;
push(@silbenarray,$_);
}
close(FILE);