Автоматическое скачивание списка запрещенных сайтов с сервиса «Роскомнадзор»

[biophreak]

if (open(FP, '<путь к фалу>request.txt.sig'))
 {$key2=1;}

Можно заменить например на

$key2 = 1 if -e "/path/to/file/request.txt.sig";

Ну и FP вы не закрываете, ну и вообще стиль написанного на перляке отвратен.

[mihail1812]

Насчет ошибки, это да, я действительно не заметил, спасибо что нашли. Насчет всего остального, я знаю что код довольно топорный и решение далеко не самое удачное, но тут решение под стать задаче. Цель не написать хороший качественный код, а сделать что-то вроде оберега от злых духов. Я это делал все на скорую руку из чужих скриптов, это было мое первое знакомство с Perl. Если есть желание сделать все красиво, перенести на Linux-сервер, пожалуйста, нет предела совершенству. Я написал грубое решение, что и не скрывал, но он во всяком случае позволит вам на год забыть о скачивании списков (до истечения срока действия электронной подписи). Развертывается примерно за час, дешево и сердито.

[voff]

Windows, Perl, Планировщик заданий — конечно очень спорный набор инструментов.

[sferrka]

Секретное продолжение

Далее необходимо все адреса из скачанного списка добавить в файл hosts, а IP-адресом назначить — адрес тайного прокси-сервера.

[mihail1812]

Зачем???

[ElleSolomina]

А не лучше в таблицу маршрутизации маршруты до «тайного» гейта добавить? ;)

[Lockal]

Pecunia non olet, да?

[rdc]

Подписывать каждый раз не нужно. Достаточно подписать файл запроса один раз, и он будет действовать, пока действительна подпись. Дата/время в нём сервером не проверяется.