#!/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;
                }
        }
}

#!/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");
                        }
                }
        }
}

C:\Dokumente und Einstellungen\Renee>perl
my @array = qw( t:t test.:.hallo test.:hallo t:. );
use Data::Dumper;

print Dumper([split /.:./],[split /\.:\./]) for @array;

^D
$VAR1 = [];
$VAR2 = [
          't:t'
        ];
$VAR1 = [
          'test',
          'hallo'
        ];
$VAR2 = [
          'test',
          'hallo'
        ];
$VAR1 = [
          'test',
          'allo'
        ];
$VAR2 = [
          'test.:hallo'
        ];
$VAR1 = [];
$VAR2 = [
          't:.'
        ];