Использование LWP::UserAgent для получения графика MRTG в Perl

Question

Я пытаюсь получить график MRTG, используя Perl в среде Linux.

#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
use Data::Dumper;

my $ua = LWP::UserAgent->new;
$ua->timeout(10);

my $response = $ua->get('http://www.myview.internetaccess.tatacommunications.com/cgi-bin/');


if ($response->is_success) {
    print $response->decoded_content;  # or whatever
}
else {
    die $response->status_line;
}

Я использовал код, но получил следующую ошибку:-

  Error:   401 Authorization Required at mrtg.pl line 18.

Затем я добавил это в код,

$ua->credentials("url","username","password");

Но я получаю ту же ошибку. Может кто-нибудь, пожалуйста, помогите мне исправить это. Благодарю.

Answer 1

Проверьте документацию для LWP::UserAgent Опять же, вам не хватает параметра:

$ ua-> учетные данные ( $netloc, $realm, $uname, $pass)

Получить / установить имя пользователя и пароль, которые будут использоваться для области.

$ Netloc - это строка вида "<хост>: <порт>". Имя пользователя и пароль будут переданы только на этот сервер. Пример:

$ ua-> credentials ("www.example.com:80", "Some Realm", "foo", "secret");

Вероятно, более простым способом было бы просто включить u/p в URL.

my $response = $ua->get('http://user:[e-mail]/cgi-bin/');