使用 LWP::UserAgent 在 Perl 中检索 MRTG Graph

Question

我正在尝试在Linux环境中使用Perl检索MRTG图。

#!/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->凭据（"www.example.com:80"、"某个领域"、"foo"、"秘密"）;

可能更简单的方法就是在 url 中包含 u/p。

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