码迷,mamicode.com
首页 > 其他好文 > 详细

perl LWP::UserAgent获取源码与响应

时间:2016-12-06 09:34:59      阅读:121      评论:0      收藏:0      [点我收藏+]

标签:repos   class   repo   com   bsp   blog   status   line   user   

 1 #!/usr/bin/perl -w
 2 use strict;
 3 use LWP::UserAgent;
 4  
 5 my $useragent = new LWP::UserAgent;
 6 my $url = http://www.baidu.com;
 7 my $request = HTTP::Request->new(GET => $url);
 8 my $repose = $useragent->request($request);
 9 print $repose->as_string;
10 #网站源码
11 print "\n",$repose->status_line, "\n";
12 #响应码

 

perl LWP::UserAgent获取源码与响应

标签:repos   class   repo   com   bsp   blog   status   line   user   

原文地址:http://www.cnblogs.com/perl6/p/6136212.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!