Проверка обновления страницы на Perl

[mike_nov]

Share

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

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

#!/usr/bin/perl my @url = (         "http://mikhail.krivyy.com/",         "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 и все :)