CODEWITHSUNDEEP
perlsslhttpsgetlwp-useragent
tr0in
tr0in

Reputation: 67

Perl - How to request HTTPS website

I am trying to access a HTTPS website, but it gives me error. I tried with this scripts:

Script 1:

use strict;
use warnings;
use LWP::UserAgent;

my $B = new LWP::UserAgent (agent => 'Mozilla/5.0', cookie_jar =>{});

my $GET = $B->get('https://moz.com')->content;
print $GET;

Script 2:

use strict;
use warnings;
use LWP::UserAgent;
use Mozilla::CA;

my $B = new LWP::UserAgent (agent => 'Mozilla/5.0', cookie_jar =>{});
$B->ssl_opts( SSL_ca_file => Mozilla::CA::SSL_ca_file() );
$B->ssl_opts( verify_hostname => 1 );

my $GET = $B->get('https://moz.com')->content;
print $GET;

I get this error with both:

Can't connect to moz.com:443

LWP::Protocol::https::Socket: SSL connect attempt failed with unknown error error:00000000:lib(0):func(0):reason(0) at C:/Perl/site/lib/LWP/Protocol/http.pm line 47.

I'm using ActivePerl 5.16.1 Build 1601 on Windows 7 Ultimate.

Any idea how to access a HTTPS website using Perl?

Upvotes: 1

Views: 8539

Answers (1)

Warren
Warren

Reputation: 47

https calls will fail if you do not have the LWP::Protocol::https module installed.

Upvotes: 2

Related Questions