CA認証をしないで通信を行うには

質問

wgetのオプションである、--no-check-certificate
（CA認証をしないで通信を行う）に相当することを
Perlスクリプトで実行させたいのですが、どなたか
ソースコードそのもの、もしくは参考文献・サイト
などのアドバイスをお示しいただけないでしょうか。

回答No.2

maura

#1 の回答のサンプルソースを利用（以下）
require LWP::UserAgent;

my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;

my $response = $ua->get('https://localhost/');

if ($response->is_success) {
print $response->content; # or whatever
}
else {
die $response->status_line;
}

問題なくhttps のリクエストできHTMLの取得が出来ました。
もちろん
　wget https://localhost/　では取得が出来ず。

no-check-certificateのようなオプションが
必要ないようです。

回答No.1

chaimasuka

CPAN モジュール LWP::UserAgent でできないでしょうか。
http://search.cpan.org/dist/libwww-perl/lib/LWP/UserAgent.pm

シンプルに http get するだけなら LWP::Simple というモジュールもあります。

参考URL：

http://search.cpan.org/dist/libwww-perl/