Perl: get () из LWP :: Simple устарел?

Question

Я просто хотел получить данные с помощью функции get, но она всегда возвращает undef, поэтому мне интересно, работает ли этот метод? Спасибо за ваш отзыв.

Пример кода:

my $content = get("https://www.uniprot.org/uniprot/?query=KZS17205.1&format=tab&columns=entry%20name");

print $content;

Answer 1

Если бы функция была устаревшей, то это было бы где-то четко задокументировано.

Я вижу, вы пытаетесь получить https URL. Это работает, если вы пытаетесь получить http один?

Вам нужно проделать еще немного работы, чтобы использовать LWP :: Simple с https. Это описано в README.SSL , который поставляется с дистрибутивом LWP. В настоящее время говорится следующее:

Начиная с libwww-perl v6.02, вам нужно установить LWP :: Protocol :: https модуль из собственного отдельного дистрибутива, чтобы включить поддержку https: // ... URL для LWP :: UserAgent.

Это делает это возможным распределение, чтобы указать необходимые зависимости как необязательные. Увидеть https://rt.cpan.org/Ticket/Display.html?id=66838 для дальнейшего обсуждение, почему мы остановились на этом решении.

Таким образом, решение (почти наверняка) заключается в установке LWP :: Protocol :: https .