LWP::UserAgent介绍1

 1 require LWP::UserAgent;
 2  
 3 my $ua = LWP::UserAgent->new;
 4 $ua->timeout(10);
 5 $ua->env_proxy;
 6  
 7 my $response = $ua->get('http://search.cpan.org/');
 8  
 9 if ($response->is_success) {
10 print $response->decoded_content;  # or whatever
11 }
12 else {
13 die $response->status_line;
14 }

 

转载于:https://www.cnblogs.com/perl6/p/6136216.html