Исходное сообщение
"Раздел полезных советов: Автоматическое получение списка зап..." Отправлено auto_tips, 10-Ноя-13 19:33
Скрипт для автоматической загрузки списка запрещенных сайтов:    use MIME::Base64;    use SOAP::Lite;    open REQ,'<request.xml';    $req.=$_ while <REQ>;    close REQ;      encode_base64($req);    open SIG,'<PKCS#7';    $sig.=$_ while <SIG>;    close SIG;    $soap = SOAP::Lite->service('http://vigruzki.rkn.gov.ru/services/OperatorRequest/?wsdl');    $r = $soap->getLastDumpDate();    print "time: $r\n";    @r = $soap->sendRequest($req, $sig);    $code = $r[2];    print "code: $code\n";    sleep 1, print "$_\n" for 1..300;    @r = $soap->getResult($code);    open ZIP,'>register.zip';    print ZIP decode_base64($r[$#r]);    close ZIP; URL: Обсуждается: http://www.opennet.ru/tips/info/2812.shtml