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, |