perl读取远程文件lwp安装

发表于 2018-04-03 09:41:02 by 月小升

use LWP::UserAgent;
 $ua = LWP::UserAgent->new;
 $ua->agent("$0/0.1 " . $ua->agent);
 # $ua->agent("Mozilla/8.0") # pretend we are very capable browser
 
 $req = HTTP::Request->new(
    GET => 'http://www.baidu.com');
 $req->header('Accept' => 'text/html');
 
 # send request
 $res = $ua->request($req);
 print $res->decoded_content;

缺少网络连接库 LWP的时候报错
Can’t locate LWP/UserAgent.pm in @INC (you may need to install the LWP::UserAgent module) (@INC contains: /opt/local/lib/perl5/site_perl/5.26/darwin-thread-multi-2level /opt/local/lib/perl5/site_perl/5.26 /opt/local/lib/perl5/vendor_perl/5.26/darwin-thread-multi-2level /opt/local/lib/perl5/vendor_perl/5.26 /opt/local/lib/perl5/5.26/darwin-thread-multi-2level /opt/local/lib/perl5/5.26) at readpiwik.pl line 1.

安装一下

 
 perl -MCPAN -eshell  
cpan> install Bundle::LWP