0

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");

しかし、同じエラーが発生します。誰でも私がそれを修正するのを手伝ってもらえますか. ありがとう 。

4

1 に答える 1

1

ドキュメントをLWP::UserAgentもう一度確認してください。パラメーターがありません。

$ua->credentials( $netloc, $realm, $uname, $pass )

レルムに使用するユーザー名とパスワードを取得/設定します。

$netloc は、「<host>:<port>」という形式の文字列です。ユーザー名とパスワードは、このサーバーにのみ渡されます。例：

$ua->credentials("www.example.com:80", "いくつかのレルム", "foo", "secret");

おそらく、より簡単な方法は、URL に u/p を含めることです。

my $response = $ua->get('http://user:pass@www.myview.internetaccess.tatacommunications.com/cgi-bin/');
于 2014-04-02T07:21:20.680 に答える