#!/usr/bin/perl

use strict;
use warnings;

my $maxtries = 3;

my $dbfile = "learnIT.db";
open($dbh, "<",$dbfile) or die $!;
my @db = <$dbh>;
close $dbh;

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