#!/usr/bin/perl
#
# Simple learning Script
# by F.Luettgens
#
#######################################

use strict;
use warnings;

my $maxtries = '3';

my $dbfile = "learnIT.db";
open(DB, "<$dbfile");
my @db = <DB>;

system("clear");
foreach (@db) {
        my $tries = 0;
        my @package = split(/.:./, $_);
        my $question_nr = $package[1];
        my $question_question = $package[2];
        my $question_answer = $package[3];
        QUESTION:
        print("\#$question_nr $question_question\n");
        print("Answer: ");
        my $answer = <STDIN>;
        if ($answer eq $question_answer) {
                print("Thats correct!\n");
        } else {
                $tries++;
                if ($tries eq $maxtries) {
                        print("Wrong answer!\nThe right one is $question_answer\n");
                } else {
                        print("Thats wrong, try again!\n");
                        goto QUESTION;
                }
        }
}