サイドコンテンツ 【メイン】

推し:加藤安那

加藤安那 (ユメオイ少女)

Twitter: @_hana_celeb_

最新 15 件のエントリー

サイドコンテンツ 【サブ】

ブログ エントリー

  • Perl LWP Proxy https

    -
    my $url_target = '~';
    my $proxy = '~:~';
    
    # HTTP (proxy メソッドを使う)
    $ua->proxy([qw(http)], 'http://' . $proxy);
    # Proxy の解除
    #$ua->proxy([qw/http/], '');
    
    # HTTPS (環境変数から読み込む)
    #$ENV{PERL_NET_HTTPS_SSL_SOCKET_CLASS} = 'Net::SSL'; # Windows ActivePerl だとセットするとエラーになる
    $ENV{'HTTPS_PROXY'} = 'http://' . $proxy;
    
    # 証明書のホスト名による検証を抑制
    #$ua->ssl_opts(verify_hostname => 0);
    
    # ホスト名の検証
    #$ENV{HTTPS_CA_DIR} = Mozilla::CA::SSL_ca_file();
    #  or
    #$ENV{HTTPS_CA_FILE} = Mozilla::CA::SSL_ca_file();
    #  or
    #$ua->ssl_opts( SSL_ca_path => Mozilla::CA::SSL_ca_file());
    #  or
    #$ua->ssl_opts( SSL_ca_file => Mozilla::CA::SSL_ca_file());
    
    
    $ua->env_proxy();
    
    my $res = $ua->get($url_target);
    

    コメントにも書いてあるけど、PERL_NET_HTTPS_SSL_SOCKET_CLASS は設定すると Windows ActivePerl だとエラーになった。

    https の proxy 解除は環境変数 HTTPS_PROXY を空にしてから $ua->env_proxy() で大丈夫。