Correção de erros IO::Socket::SSL 1.56 must be installed for https support

Na linguagem de programação Perl existem várias bibliotecas que você pode carregar dados a partir da internet através de um HTTP. Саме conhecidos é LWP e HTTP::Tiny. A biblioteca HTTP::Tiny vem com o Perl, não necessita de ser instalado adicionalmente, por isso, muitas vezes, é conveniente descarregar os dados com a sua ajuda.

O sucesso de download HTML páginas através do protocolo http

Aqui está um exemplo de código que carrega a página inicial do site http://example.com. Neste exemplo, utiliza o protocolo http em vez de https:

#!/usr/bin/perl

use strict;
use warnings;
use feature qw(say);

use HTTP::Tiny;
use Data::Dumper;

my $response = HTTP::Tiny->new()->get('http://example.com');

warn Dumper $response;

Se você executar este código, vê-se que tudo funciona. Receberam o status de 200. O campo de successvalor é a verdade (neste texto para a conveniência de apresentar a estrutura de dados do campo content foi alterado do valor, em vez da página de código html escrito de três pontos):

$ perl script.pl
$VAR1 = {
          'reason' => 'OK',
          'protocol' => 'HTTP/1.1',
          'content' => '...',
          'headers' => {
                         'etag' => '"3147526947+gzip+ident"',
                         'x-cache' => 'HIT',
                         'connection' => 'close',
                         'cache-control' => 'max-age=604800',
                         'content-length' => '1256',
                         'server' => 'ECS (nyb/1D2A)',
                         'expires' => 'Mon, 30 Dec 2019 12:38:04 GMT',
                         'vary' => 'Accept-Encoding',
                         'content-type' => 'text/html; charset=UTF-8',
                         'date' => 'Mon, 23 Dec 2019 12:38:04 GMT',
                         'last-modified' => 'Thu, 17 Oct 2019 07:18:26 GMT'
                       },
          'url' => 'http://example.com',
          'success' => 1,
          'status' => '200'
        };

Erro quando utiliza o protocolo https

Mas, se alterar um pouco o código e baixar dados por meio do protocolo https, o os dados não são carregados. Aqui está o código do programa:

#!/usr/bin/perl

use strict;
use warnings;
use feature qw(say);

use HTTP::Tiny;
use Data::Dumper;

my $response = HTTP::Tiny->new()->get('https://example.com');

warn Dumper $response;

Aqui está o resultado do trabalho deste programa:

$ perl script.pl
$VAR1 = {
          'url' => 'https://example.com',
          'reason' => 'Internal Exception',
          'status' => 599,
          'success' => '',
          'headers' => {
                         'content-type' => 'text/plain',
                         'content-length' => 57
                       },
          'content' => 'IO::Socket::SSL 1.56 must be installed for https support
'
        };

O valor do campo status 599 (trata-se de um estado inventado na biblioteca HTTP::Tiny, ele significa que o problema com a biblioteca). O valor success falsamente, e no campo content tem uma explicação pela qual ocorreu o erro: IO::Socket::SSL 1.56 must be installed for https support.

A tentativa de solução

O aga. Para HTTP::Tiny poderia trabalhar https precisa para a biblioteca IO::Socket::SSL.

Tentamos colocá-la com a ajuda de cpanm, mas recebemos um erro:

root@faf6a4b66b08:/app# cpanm IO::Socket::SSL
--> Working on IO::Socket::SSL
Fetching http://www.cpan.org/authors/id/S/SU/SULLR/IO-Socket-SSL-2.066.tar.gz ... OK
==> Found dependencies: Net::SSLeay
--> Working on Net::SSLeay
Fetching http://www.cpan.org/authors/id/C/CH/CHRISN/Net-SSLeay-1.88.tar.gz ... OK
Configuring Net-SSLeay-1.88 ... OK
Building and testing Net-SSLeay-1.88 ... FAIL
! Installing Net::SSLeay failed. See /root/.cpanm/work/1577105006.3284/build.log for details. Retry with --force to force install it.
! Installing the dependencies failed: Module 'Net::SSLeay' is not installed
! Bailing out the installation for IO-Socket-SSL-2.066.
root@faf6a4b66b08:/app#

Como pode ser visto a partir do log para a biblioteca IO::Socket::SSL precisa instalar Net::SSLeay, mas Net::SSLeay não está instalado. No arquivo build.log você pode ver os detalhes. Este é um excerto deste arquivo:

cp lib/Net/SSLeay.pod blib/lib/Net/SSLeay.pod
/usr/bin/perl /usr/share/perl/5.18/ExtUtils/xsubpp  -typemap /usr/share/perl/5.18/ExtUtils/typemap -typemap typemap  SSLeay.xs > SSLeay.xsc && mv SSLeay.xsc SSLeay.c
cc -c   -D_REENTRANT -D_GNU_SOURCE -DDEBIAN -fstack-protector -fno-strict-aliasing -pipe -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -O2 -g   -DVERSION=\"1.88\" -DXS_VERSION=\"1.88\" -fPIC "-I/usr/lib/perl/5.18/CORE"   SSLeay.c
SSLeay.xs:163:25: fatal error: openssl/err.h: No such file or directory
 #include  openssl/err.h
                         ^
compilation terminated.
make: *** [SSLeay.o] Error 1

Uma solução bem sucedida

Para HTTP::Tiny possa trabalhar através de https precisa instalar a biblioteca IO::Socket::SSL. Para instalar IO::Socket::SSL precisa instalar Net::SSLeay. E aqui para instalar a biblioteca Net::SSLeay precisa colocar a dll do suplemento no sistema.

No Ubuntu é feito através do comando:

$ apt-get update && apt-get install -y libssl-dev

Após isso, é preciso estabelecer IO::Socket::SSL:

# cpanm IO::Socket::SSL

Este comando for instalado com êxito biblioteca Net::SSLeay e IO::Socket::SSL. E depois disso, HTTP::Tiny é capaz de trabalhar através de https.

Outros artigos