LWP :: UserAgentを使用するPerl HTTPS

Question

perlのLWP :: UserAgentモジュールを使用してHTTPSプロキシ経由でURLを要求したいとします。これについてはいくつかの参考文献がありますが、何も私がそれを働かせるのに役立つものはありません。

#!/usr/bin/perl 
use strict; 
use warnings; 
use LWP::UserAgent; 
use Data::Dumper; 

BEGIN { 
    $ENV{HTTPS_PROXY} = 'https://<IP>:<PORT>'; 
    $ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0; 
    $ENV{HTTPS_PROXY_USERNAME} = '<API_KEY>'; 
    $ENV{HTTPS_PROXY_PASSWORD} = ''; 
    $ENV{HTTPS_DEBUG} = 1; #Add debug output 
} 

my $ua = LWP::UserAgent->new(ssl_opts => {verify_hostname => 0}, SSL_version => 'SSLv3', allowed_protocols => ['https', 'http']); 
$ua->proxy(['https', 'http'], 'https://<IP>:<PORT>'); 
my $req = HTTP::Request->new('GET','https://<DOMAIN_URL>'); 
print STDERR Dumper($ua); 
my $response = $ua->request($req); 
print $response->code ."\n"; 
print STDERR Dumper($response); 

私はこのエラーを取得する：プロキシでLWPにallowed_protocolsを指定して、私にもかかわらず

SSL connect attempt failed error:140770FC:SSL routines:SSL23_GET_SERVER_HELLO:unknown protocol at /home/user/project/local/lib/perl5/LWP/Protocol/http.pm line 51.

、HTTPSスキームとURLスキームは、HTTPSであること、それはまだLWPに行く::議定:: HTTP上記とLWP :: Protocol :: HTTPSではなく

は、私はまた、LWP ::プロトコルのバージョンは:: HTTPSこれは私のために働いた

Answer 1

（フォーラムの一つで言及された）LWP :: UserAgentのと同じである6.06であることが検証：

use LWP::UserAgent; 

$ua = LWP::UserAgent->new(); 
$ua->proxy('https', 'connect://<USER>:<PSWD>@<IP>:<PORT>/'); 

$ua->get('https://www.somesslsite.com'); 

HTTPS Proxy and LWP::UserAgent

注：私のための環境の資格情報（HTTPS_PROXY_USERNAME）didntの仕事。私は上記のようなURLにそれを入力しなければなりませんでした。

Answer 2

LWPの最近のバージョン（あなたが持っているバージョン6.06以降）との正しいセットアップがproxy機能を持つ他のアプリケーションを一緒に見られるようにちょうど同じ構文を使用することです：

my $ua = LWP::UserAgent->new; 
$ua->proxy(https => 'http://user:pass@proxy'); 
$ua->get('https://server'); 

代わりにあなたが設定することができます環境変数https_proxyを同じ値、つまりhttp://user:pass@proxyに設定します。

IO :: Socket :: SSL（バージョン6.0以降のデフォルト）と一緒に使用すると、6.06より前のプロキシサポートが壊れていました。あなたの質問には、古いバックエンドCrypt::SSLeayの構文があります。これは、証明書を正しくチェックしないために推奨されなくなりました。