怎样写个perl程序 下载有权限控制的网页文件 ???? 内有源程序,大家看看为什么不行,是cookie的问题吗 ???
tl66 2002-03-21 06:36:12 #!c:/perl/bin/perl
use LWP::UserAgent;
my $ua = new LWP::UserAgent;
my $url = 'http://www.XXXX.com/cgi-bin/pub/want.cgi?ac=111';
my $request = HTTP::Request->new(GET => $url);
$request->authorization_basic('791103','loveme');
my $response = $ua->request($request);
if ($response->is_success) {
print $response->content;
}
else {
print "Error getting document: ",
$response->status_line, "\n";
}
why 提示 403 forbidden