Как игнорировать ошибку проверки сертификата в perl?

Я хочу получить доступ к веб-сайту, на котором сертификат не может быть проверен. Я использую запрос WWW:: Mechanize get. Итак, как бы проигнорировать это и продолжить подключение к веб-сайту?

Ответ 1

use IO::Socket::SSL qw();
use WWW::Mechanize qw();
my $mech = WWW::Mechanize->new(ssl_opts => {
    SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE,
    verify_hostname => 0, # this key is likely going to be removed in future LWP >6.04
});

С IO:: Socket:: SSL раньше 1.79, см. PERL_LWP_SSL_VERIFY_HOSTNAME.

Ответ 2

my $mech = WWW::Mechanize->new( 'ssl_opts' => { 'verify_hostname' => 0 } );