1

голосов
0

ответ
67

Просмотры

Ошибка Perl при запросе прокси для HTTPS сайта. AnyEvent статус 596

при запросе через прокси-сервер, который поддерживает протокол HTTPS на HTTPS сайте. «Причина» Ошибки => «ssl23_get_server_hello приходит: неизвестный протокол», «Status» => 596, я использую библиотеку AnyEvent, я подозреваю, что проблема с запросом на подключение, но я не могу решить вообще, я буду очень благодарен за подсказку. использовать строгий; использовать utf8; Использование Data :: Dumper; использовать AnyEvent :: HTTP; использовать MIME :: Base64; использовать AnyEvent :: Connector; мои $ печенье = {}; мой $ сделано = AnyEvent-> condvar; мой $ request_watcher = http_request (прибудет => 'https://randomup.ru', (KeepAlive => 1, упорный => 1, рекурсия => 0, cookie_jar => $ печенье, тайм-аут => 10, заголовки => { 'User-Agent' => «Mozilla / 5.0 (Windows NT, 10.0; Win64; x64) AppleWebKit / 537,36 (KHTML, как Gecko) Chrome / Safari 69.0.3445.2 / 537,36' , 'Accept-Encoding' => 'GZIP', 'Accept-Language' => 'ан-нас, еп, д = 0,5' , 'Accept-Charset' => 'ISO-8859-1, UTF-8; д = 0,7, *; д = 0,7', 'Proxy-Authorization' => 'Базовый'. encode_base64 (.. 'XXX' ':' 'XXX'),},), on_header => суб {печати STDERR Dumper @_; возвращает 1; }, Прокси => [ 'XX.XX.XX.XX', 8000, 'HTTP'], к югу {печати STDERR Dumper @_; # $ Done-> отправить; }); $ Done-> RECV (); Подозреваю, что метод tcp_connect также необходим, но я не понимаю, как его настроить. Так прокси для работы LWP требуют LWP :: UserAgent; мой $ иа = LWP :: UserAgent-> новый; $ Ua-> тайм-аут (10); $ Ua-> прокси ([ 'HTTPS', 'HTTP'], 'HTTP: // XXX: [email protected]: 8000'); # $ Ua-> прокси ([ 'HTTPS'], 'https: // прокси: 8080'); # Не удается # $ ua-> env_proxy; # Это также не удается. мой $ ответ = $ ua-> Get ( 'https://randomup.ru'); если ($ response-> is_success) {печать $ response-> decoded_content; # Или что-то еще} {умереть $ response-> status_line; } К сожалению, я не могу написать полный прокси-сервер, потому что он заплатил. Но если без него абсолютно ничего, то я могу написать. если ($ response-> is_success) {печать $ response-> decoded_content; # Или что-то еще} {умереть $ response-> status_line; } К сожалению, я не могу написать полный прокси-сервер, потому что он заплатил. Но если без него абсолютно ничего, то я могу написать. если ($ response-> is_success) {печать $ response-> decoded_content; # Или что-то еще} {умереть $ response-> status_line; } К сожалению, я не могу написать полный прокси-сервер, потому что он заплатил. Но если без него абсолютно ничего, то я могу написать.
Denis Trifanov