1. 如何快速GET一个页面？

  1.   use LWP ::Simple;
  2.   my $doc = get 'http://www.example.com/';




2. 标准的HTTP请求过程？

  1.   use LWP ::UserAgent;
  3.   my $ua = LWP ::UserAgent->new;
  4.   my $req = HTTP::Request->new(GET => 'http://www.example.com/');
  6.   my $res = $ua->request($req);
  8.   if ($res->is_success) {
  9.       print $res->as_string;
  10.   }else {
  11.       print "Failed: ", $res->status_line, "/n";
  12.   }




3. 如何得到HTTP响应状态码？

  1.   print $res->status_line;




4. 如何得到HTTP响应的完整内容？

  1.   print $res->as_string;




5. 如何得到HTTP响应的HTML解码后的内容？

  1.    print $res->decoded_content;




6. 如何POST数据 ？

  1.   use LWP ::UserAgent;
  2.   my $ua = LWP ::UserAgent->new;
  4.   my $req = HTTP::Request->new(POST => 'http://www.example.com/');
  5.   $req->content_type('application/x-www-form-urlencoded');
  6.   $req->content('key1=value1&key2=value2');
  8.   my $res = $ua->request($req);
  9.   print $res->as_string;




7. 如何接受Cookie?

  1.   use LWP ::UserAgent;
  2.   use HTTP::Cookies;
  4.   my $ua = LWP ::UserAgent->new;
  5.   $ua->cookie_jar(HTTP::Cookies->new(file => "lwpcookies.txt",
  6.                                      autosave => 1));
  8.   my $req = HTTP::Request->new(GET => "http://www.example.com/");
  10.   my $res = $ua->request($req);
  11.   print $res->status_line;




8. 如何在请求里发送指定的Cookie？

  1.   use LWP ::UserAgent;
  2.   my $ua = LWP ::UserAgent->new;
  4.   my $req = HTTP::Request->new(GET => 'http://www.example.com/');
  5.   $req->header('Cookie' => "key1=value1;key2=value2");
  7.   my $res = $ua->request($req);
  8.   print $res->status_line;




9. 如何访问需要身份验证的网站（basic auth）？

  1.   use LWP ::UserAgent;
  2.   my $ua = LWP ::UserAgent->new;
  4.   my $req = HTTP::Request->new(GET => 'http://www.example.com/');
  5.   my $req->authorization_basic('user', 'password');
  7.   my $res = $ua->request($req);
  8.   print $res->as_string;




10. 如何指定UserAgent的超时时间和版本？

  1.   my $ua = LWP ::UserAgent->new;
  2.   $ua->timeout(5);
  3.   $ua->agent("Mozilla/8.0");



11. 如何让UserAgent不follow重定向？

  1.   $ua->max_redirect(0);



  参数表示跟随重定向的层数，0表示不跟随重定向。


12. 如果机器有多个IP，如何指定UserAgent使用哪个IP访问网络 ？

  1.   $ua->local_address('1.2.3.4');




13. 直接使用IP访问网站，为什么会失败？

   那是因为没有加上Host头部，虚拟主机识别不出你的请求。
   在构造请求时，请加上Host头部：

  1.    my $req = HTTP::Request->new(GET => "1.2.3.4");
  2.     $req->header('Accept' => 'text/html',
  3.                  'Host' => 'www.example.com');
# perl # html # jar
Logo
MCP技术社区

欢迎加入 MCP 技术社区！与志同道合者携手前行，一同解锁 MCP 技术的无限可能！

更多推荐

cover

谷云科技iPaaS发布 MCP Server加速业务系统API 跨入 MCP 时代

avatar MCP技术社区
cover

打工人必看！Qwen3+MCPs 一键生成爆款笔记，摸鱼式运营轻松涨粉

avatar MCP技术社区
cover

MCP（Model Context Protocol）是专为LLM（大语言模型）应用设计的标准化协议

avatar MCP技术社区