Perl で LWP を使ってSSL通信
1. libwww-perl をインストール
$ sudo apt-get install libwww-perl
2. libcrypt-ssleay-perl をインストール(既にあるかも)
$ sudo apt-get install libcrypt-ssleay-perl
3. 下記のように実装(ssltest.pl)
use LWP::UserAgent;
my $url = "https://www.helsinki.fi/";
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => $url);
print $req;
my $res = $ua->request($req);
if ($res->is_success) {
print $res->as_string;
} else {
print "Failed: ", $res->status_line, "\n";
}
4. ssltest.pl を実行
$ perl ./ssltest.pl
HTMLが標準出力されれば成功