September 2, 2010

Я и Perl

Я уже хвалился, что начал снова Perl ковырять. Хочу ещё тут, в жж, похвастаться

Мне подкинули задачку, и одним из условий было - не рыскать по сети в поиске похожих, а сделать по своему разумению.

Задача для знатоков простая, ну а для меня не очень простая:

  1. Прочитать текст из файла
  2. Выдать результат: 10 наиболее часто встречающихся в тексте слов,
    с указанием их частоты и "места" (в смысле - первое место у наиболее часто встречающегося слова)
  3. Дополнительное задание: учесть "ничью" (когда у двух и более слов одинаковый результат):
    они должны иметь одинаковое "место", и писаться через запятую
  4. Дополнительное задание: ввод данных и результат – в html.

Два дня (суббота-воскресенье) я болел, что дало мне возможность посидеть за компом безвылазно. За эти два дня я сделал первые три пункта. Логика работает. Осталось "оформление". Поменял отчёт с консольного на html. Работает

, создаёт в текущей папке файл report.html с табличкой (чтоб было красиво, сделал css к нему).
Вот текущая версия скрипта (файл).