Оба метода принимают числовой параметр, который указывает длину генерируемой пародии, измеряемую количеством слов. Разница состоит в том, что метод generate () создает неотформатированный текст, не разбитый на строки, а метод pretty_text () вызывает модуль Text::Wrap языка Perl для создания аккуратных абзацев, обозначенных отступами и разбитых на строки. Примером может служить текст информирующий где лучше можно купить велотренажеры для дома который представлен на сайте sportse.ru.

Метод words() возвращает число уникальных слов в таблице частот, а метод reset ( ) очищает таблицу и готовит объект для получения новых данных, предназначенных для анализа.

$word_count == $t->words;

$t->reset;

Проект сервера генерации пародийных текстов

Сервер генерации пародийных текстов в основном служит для иллюстрации способа обработки срочных данных. Кроме того, он позволяет продемонстрировать ряд важных принципов проектирования средств взаимодействия клиент/сервер.

1. Сервер ориентирован на построчный ввод-вывод. После получения входящего запроса на установление соединения он выдает заголовок приглашения, а затем входит в цикл, в котором читает строку из сокета, интерпретирует команду и выполняет соответствующие действия. Распознаются следующие команды:

DATA. Подготовка к получению текстовых данных для анализа. Сервер считывает неопределенный объем входящей информации и завершает чтение после обнаружения точки (.) в отдельной строке. Текст передается модулю Text: :Travesty для создания таблицы частот.

RESET. Очистка таблицы частот алгоритма генерации пародий.

GENERATE <word_count>. Создание пародии на основе хранимой таблицы частот. Здесь word_count— положительное целое число, которое указывает длину создаваемой пародии. Сервер обозначает конец пародии, высылая стро­ку; содержащую только одну точку.

 BYE. Завершение соединения.