使用LWP :: UserAgent在Perl中檢索MRTG圖

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-> credentials（“ www.example.com:80”，“ Some Realm”，“ foo”，“ secret”）;

可能更簡單的方法是將u / p包含在url中。

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