task1.pl

Skript pro reseni ukolu cislo 1.

Pouziti

./task1.pl file

TextInfo

Trida s informacemi o vstupnim textu.

printInputStats($info)

Vypise informace o vstupnim souboru $info.

computeProbabilities($info)

Spocita pravdepodobnosi bigramu na vstupnim souboru $info.

computeCondEntropy($info)

Spocita podminenou entropii na vstupu $info.

computeCondPerplexity($entropy)

Z podminene entropie $entropy spocita podminenou perplexitu.

messUpChars($level) = @out

Ze vstupniho souboru zmeni $level znaku za jine znaky vyskytujici se v textu.

Vraci zmenene radky @out.

messUpWords($level) = @out

Ze vstupniho souboru zmeni $level slov za jina slova vyskytujici se v textu.

Vraci zmenene radky @out.

createTextInfo(@input) = $info

Ze vstupnich radek @input vytvori tridu s informacemi TextInfo $info.