#!/usr/bin/perl

use strict;
use warnings;
use List::Util 'shuffle';


print "Bitte geben Sie die Datei an.\n";
my $Datei = <STDIN>;

chomp($Datei);

open IN_FILE, "$Datei" or
   die("Could not open $Datei for reading");

my @list;	

#
# Fragen und Antworten einlesen
#
while (<IN_FILE>) {
    chomp;
    my @words = split /\t/;
    if ($#words != 1) {
	die("Malformed input $_");
    }
    push(@list, 
    	{
	    question => $words[0],
	    answer => $words[1]
	});
}
@list=shuffle(@list);
#
# Fragen bis alles gelöst wurde
#
while ($#list > -1) {
    print "$list[0]->{question}: ";
    my $answer = <STDIN>;
    system 'cls';
    chomp($answer);
    if ($answer eq $list[0]->{answer}) {
	print "Richtig: ",
	    "Die Antwort ist *$list[0]->{answer}*\n\n";
	shift(@list);

	next;
    }
    print "Falsch! ",
       "Die richtige Anwort ist: *$list[0]->{answer}*\n\n";

    push(@list, shift(@list));
}
print "All done\n"