#!/usr/bin/perl

open (LESEN, "Vokabeln.txt")||die "Die Datei konnte nicht gefunden werden";
      $vokabeln=<LESEN>;
close (LESEN);

@vokabeln_array = split (/:+/, $vokabeln);

open (LESEN, "Loesung.txt")||die "Die Datei konnte nicht gefunden werden";
      $loesung=<LESEN>;
close (LESEN);

@loesung_array = split (/:+/, $loesung);

$#loesung_array;


require (Vokabeltrainer_Unterprogramm);

#!/usr/bin/perl

$durchgaenge=0;
while ($durchgaenge<($#loesung_array+1))
{

$zahl=0+rand(3);

print"Translate the word $vokabeln_array[$zahl]\n";
$eingabe = <STDIN>;    chomp $eingabe;
if ($eingabe eq $loesung_array[$zahl])     {
print"The translation is correct!\n";
$durchgaenge++;
}
else {
print"The translation is incorrect\n";

print"Do you want to save the incorrect word and answer?\n";
print"(1)Yes              (2)No\n";
$antwort=<STDIN>;    chomp$antwort;

if($antwort eq 1){
print"Please tell me a name how you want to save the wrong answer:\n";
$name=<STDIN>;    chomp$name;

open(SCHREIB,">nichtgekonnte.txt");
     print SCHREIB ">$name\n";
     print SCHREIB $eingabe;
close(SCHREIB);
$durchgaenge++;
}
else{
$durchgaenge++;
}
}
}
exit;