#!/usr/bin/perl

# Placed in the public domain 2001 by Sam Trenholme.
# Simple drill program for vocabulary learning

$fichero = shift || "example_wordlist";

open(WORDS,"< $fichero") || die;

$total = 0;

while(<WORDS>) {
    chop;
    s/\#.*//; # No comments
    ($type,$espanol,$meaning) = split(/\|/);
    if($type && $espanol && $meaning) {
        $drill{$espanol} = $meaning;
	$total++;
	}
    }

$puntos = 0;
$aprender = "";

foreach $palabra (sort {rand(3) - 1} keys %drill) {
	print $drill{$palabra} . ": ";
	chop($ingles = <STDIN>);
	if($ingles eq $palabra) {
	    print "Muy bien!\n";
	    $puntos++;
	    }
        else {
	    print "La palabra es $palabra\n";
	    $aprender .= $palabra . "\n";
	    }
        }

print "Palabras: $total\n";
print "Correct:  $puntos\n";
print "Por cientos: ";
printf "%2.2f%%\n", ($puntos / $total) * 100;

if($aprender) {
    print "Palabras para aprender:\n$aprender";
    }
else {
    print "Perfecto!\n"; 
    }


