使用LWP::UserAgent检索Perl中的MRTG图
使用LWP::UserAgent检索Perl中的MRTG图
提问于 2014-04-02 07:06:57
我试图在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");但我也犯了同样的错误。有人能帮我修一下吗。谢谢。
回答 1
Stack Overflow用户
回答已采纳
发布于 2014-04-02 07:21:20
再次检查LWP::UserAgent的文档，您缺少了一个参数：
$ua->凭据( $netloc、$realm、$uname、$pass ) 获取/设置用于领域的用户名和密码。 $netloc是表单"“的字符串。用户名和密码将只传递给此服务器。示例： $ua->凭据(“www.example.com:80”、“某些领域”、"foo“、”机密“)；
可能一个更简单的方法是将u/p包含在url中。
my $response = $ua->get('http://user:pass@www.myview.internetaccess.tatacommunications.com/cgi-bin/');页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/22803905
复制相关文章
相似问题
腾讯云开发者
