[PerlChina] 有谁用过lwp中的authenicate？

use LWP::UserAgent;

my $url = "my url";

my $mech = LWP::UserAgent->new();
my $req = HTTP::Request->new(GET => $url);
$req->authorization_basic('uid','password');
print $mech->request($req)->as_string; 这个可以通过验证
-----------------------------------------------------------------------------------------------

my $url = "my url";

my $mech = LWP::UserAgent->new();
$mech->credentials(
"$url:80",
"Please Input Your Password",
"uid" => "password",
);
my $response = $mech->get("http://$url/");
die "Error getting $url: ", $response->status_line
if $response->is_error;
这个就失败了
------------------------------------------------------------------------------------------------------

哪位知道为什么吗？

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---