![]() ![]() |
Интересные решения Perl. Вопросы и ответыHTTPS запросы в PerlМодуль LWP (libwww) позволяет осуществлять запросы не только по протоколу HTTP, но и по протоколу HTTPS. Для этого должен быть установлен модуль Net::SSLeay. HTTPS запросы выполняются аналогично HTTP. Начиная с 6 версии модуль libwww при HTTPS-запросах по-умолчанию делает проверку валидности SSL-серификата, что ломает работу старых скриптов, использующих более ранние версии модуля и обращающихся к серверам с самоподписанными сертификатами. Чтобы решить данную проблему нужно установить переменную окружения PERL_LWP_SSL_VERIFY_HOSTNAME в значение 0.
#!/usr/bin/perl
use strict;
use warnings;
$ENV{'PERL_LWP_SSL_VERIFY_HOSTNAME'} = 0;
require LWP::Simple;
my $c = LWP::Simple::mirror('https://some-server.tld/file.txt', '/tmp/file.txt');
print "$c\n";
Опубликовано: 26 июля 2011 года.
|
|
© Алексей Кощеев, г.Киров, 2001-2023 |
|