Select Code to Download

open DICTE, "dict.txt";
if (length($input)>0){
...
        ($english, $lang, $irreg, $clss) = split(/;/,$_); #gets the gr
+ammatical informations stored in one line of the dictionary.
        if ($input eq $lang){ print "<p>$english - $lang, $clss</p>";}
+ #if the input equals the word in the dictionary, print it along with
+ its translation.
}

open DICTE, "dict.txt";
if (length($input)>0){
...
        if (conj("$lang;present;2;singular") eq $lang){ print "<p>$eng
+lish - $lang, $clss</p>";} #where conj("$word;$tense;$person;$number"
+) is a function that conjugates the verb, given the specific informat
+ions.
        # ... and in every tense, person and number.
}