?

Log in

No account? Create an account

Previous Entry | Next Entry

Кросс-пост из mike.nov.ru

Иногда нужно последить за обновление определенных страниц сайтов. Раньше даже были специальные программы - “Whats new агенты”. Погуглил, в топе выдачи ничего не нашел. Вероятно, из-за засилия динамически генерируемых сайтов, эти программы если не вымерли, а ушли на второй план.

Ну нет, так нет, в конце концов Perl не просто так изобрели. Обожаю Perl:

#!/usr/bin/perl

my @url = (
        “http://mike.nov.ru/“,
        “http://www.novgorod.ru/“,
        );

system(”mv data.md5 data.old”);

open(FILE,”>data.md5″);
foreach (@url) {print FILE $_.”\t”.(`fetch -q -o - $_ | md5 -q`);}
close(FILE);

print `diff data.md5 data.old`;

Все это в crontab и все :)

Comments

( 6 comments — Leave a comment )
(Deleted comment)
mike_nov
Sep. 30th, 2008 11:49 am (UTC)
Думаю что если поискать, то можно найти :)

Меня чужие сайты интересуют. Свои я и так знаю.
(Deleted comment)
8vmr
Oct. 1st, 2008 06:32 pm (UTC)
А как же HTTP expiration модель?
mike_nov
Oct. 1st, 2008 06:42 pm (UTC)
Сколько не пытался использовать - безуспешно. Есть ощущение что она чисто теоретическая.
pelagia_purnel
Jul. 13th, 2010 08:36 pm (UTC)
^_^ . mike_nov
( 6 comments — Leave a comment )

Profile

ru_codenet
Сообщество форума Codenet.RU
Форум Codenet.RU

Latest Month

May 2011
S M T W T F S
1234567
891011121314
15161718192021
22232425262728
293031    
Powered by LiveJournal.com
Designed by Tiffany Chow