Блог

У меня ситуация, когда мне нужно проверить определенные условия внутреннего веб-приложения.

1. Сначала мне нужно проверить, загружается приложение или нет. — Для этого я использовал модуль Perl Mechanize и метод get для загрузки URL. Проблема, с которой я столкнулся, заключалась в том, что он показывал 401 несанкционированный доступ, и если я отправлю имя пользователя и пароль в качестве параметров для функции «учетные данные», она работает нормально.

Я просто хочу проверить, загружается ли веб-страница или нет без ввода учетных данных? Печать сообщения, если оно загружается, выглядит нормально.

Вы можете выполнить прямой запрос с помощью LWP и проверить код возврата. Если это 401, вы знаете, что сервер отвечал. Означает ли это также, что ваше приложение работает, зависит от того, кто отвечает за проверку авторизации.

 use LWP::UserAgent;
my $resp = LWP::UserAgent->new->get('http://example.com');
if ($resp->code == 401) ...