Проверка обновления страницы на 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 и все :)
Комментарии