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

Posted FireC@t @ Perl6

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了perl LWP::UserAgent获取源码与响应相关的知识，希望对你有一定的参考价值。

 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获取源码与响应的主要内容，如果未能解决你的问题，请参考以下文章