der(word) -> list of derived words flags(word) -> list of possible roots and flags nlgrep(word,filename*) -> list of lines nlgrep2(word,RecSeparator,filename*) -> list of lines nlgrep3(word,N,filename*) -> list up to N lines setstopwords(word*) -> words to be avoid in nlgrep rad(word) -> list of possible normalized words fea(word) -> list of analisis
jspell
#!/usr/local/bin/perl
use jspell; my $a;
while(<>){ chop; $a= { NAME => $_, FLA => [flags($_)], DER => [der($_)], PRO => [nlgrep($_,"/home/jj/public_html/pln/proverbio.dic")] };
$a->{RAD} = [rad($_)]; $a->{JSPELL} = [fea($_)];
print any2str($a,2); }