清华大佬耗费三个月吐血整理的几百G的资源,免费分享!....>>>
use LWP::UserAgent;
$user_agent = new LWP::UserAgent;
$request = new HTTP::Request('GET', 'http://www.oschina.net/home/about');
$response = $user_agent->request($request);
open FILEHANDLE, ">oschina.txt";
print FILEHANDLE $response->{_content};
close FILEHANDLE;