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

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

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

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

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

#!/usr/bin/perl

my @url = (
        "https://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 и все :)

Комментарии