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-> More