| print "\t\tlanguage and dictionary detection\n"; | print "\t\tlanguage and dictionary detection\n"; | ||||
| my($lang,$words, $dictmatches) = detect_lang($txt); | my($lang,$words, $dictmatches) = detect_lang($txt); | ||||
| print "\t\tfound %dictmatches words in dictionary\n"; | |||||
| print "\t\tfound $dictmatches words in dictionary\n"; | |||||
| push @res, { | push @res, { | ||||
| lang => $lang, | lang => $lang, |