访问perl中的url时的http 403

时间:2011-05-28 11:10:13

标签: perl

我想访问一个网页,但我收到403,THIS网址失败。 但是当我使用Firefox访问时,它显示HTTP 200 OK。

这是我用来访问它的代码:

    my $agent = LWP::UserAgent->new(env_proxy => 1,keep_alive => 1, timeout => 30, agent => "Mozilla/5.0");
         my $header = HTTP::Request->new(GET => $link);

         my $request = HTTP::Request->new('GET', $link, $header);

          my $response = $agent->request($request);

          if ($response->is_success){
........

1 个答案:

答案 0 :(得分:3)

您的代码在我的系统访问我自己的网站时运行良好。我猜你所点击的网站对自动请求过敏。您使用的用户代理非常小,他们可能拒绝任何看起来不真实的东西。这是一个更真实的代理人:

“Mozilla / 5.0(Windows NT 6.1)AppleWebKit / 534.24(KHTML,与Gecko一样)Chrome / 11.0.696.71 Safari / 534.24”