ТехноСаратов::Блог Голосов: 1 Адрес блога: http://technosaratov.ru/ Добавлен: 2008-11-09 15:48:43

Грабим апдейты форума ТС

1970-01-01 03:00:00 (читать в оригинале)

Долгожители этого форума обязательно помнят новостного клиента TC. На каких черных технологиях она работала известно только мне и editor`у. В этот ночной час захотелось мне поэкспериментировать с реальным граббингом.

На днях один мой новый знакомый прислал мне мощный скрипт на Tcl, который воистину творит чудеса. Правда, этот скрипт имеет для автора коммерческий интерес, по этому приводить его здесь не могу, и описывать подробно не стану. Скажу лишь, что он обращается ко многим веб-сервисам, автоматизируя очень большой объем работы.

И еще, мне вспомнилась статья, про простой парсер на php, которую писал admin. И я решил показать хоть краешком, что tcl тоже кое что умеет :)

Скрипт делает не много — он просто обращается к странице TechnoSaratov.ru/thread, берет первую из списка тему с ее автором и пишет эту строчку на форме.

Собственно код:

package require http pack [label .l -relief ridge] pack [button .b -text "Обновить" -command updatePostInfo] proc updateInfo {} { global .l .l configure -text "-- Подключаемся к сети --" ::http::config -useragent "Mozilla/5.0 (Windows; U; Windows NT 5.1; ru-RU; rv:1.7.12) Gecko/20050919 Firefox/1.0.7" set tok [::http::geturl http://technosaratov.ru/thread] set dat [::http::data $tok] ::http::cleanup $tok set theme "" set user "" regexp {(.*?)} $dat match i regexp {от (.*?)} $dat match user .l configure -text "$i | от $user" } updatePostInfo bind . <F5> updateInfo

По идее не плохо было бы вставить таймер, по которому проверялось бы нет ли новых авторов и тем в топе списка.