#!/usr/bin/perl

use strict;
use warnings;

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

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

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

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

my$anzahl_loesung= $#loesung_array;
my$anzahl_vokabeln= $#vokabeln_array;




my @alle_versuche;
my @alle_vokabeln;
my $durchgaenge=0;
my %schon_gefragt= ();

while ($durchgaenge<($anzahl_loesung+1)){
my$vokabel = $vokabeln_array[$zahl];
#$zahl=0+rand($anzahl_vokabeln);

if(exists ($schon_gefragt{my$vokabel}) )  {
next;
}
else {

print"Translate the word $vokabeln_array[$zahl]\n";
my $eingabe = <STDIN>;    chomp $eingabe;
push @alle_versuche, $eingabe;
push @alle_vokabeln, $vokabeln_array[$zahl];

if ($eingabe eq $loesung_array[$zahl])     {
print"The translation is correct!\n";
$schon_gefragt{vokabel} = 1;
$durchgaenge++;
}
else {
print"The translation is incorrect\n";
$schon_gefragt{vokabel} = 1;

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

if($antwort eq 1){

open(SCHREIB,">nichtgekonnte.txt");
     print SCHREIB ">>Wrong:\n";
     print SCHREIB join "\n", @alle_vokabeln;
     print SCHREIB "\n\n";
     print SCHREIB ">>Answer:\n";
     print SCHREIB join "\n", @alle_versuche;
close(SCHREIB);
$durchgaenge++;
}
else{
$durchgaenge++;
}
}
}
}