chimni has asked for the wisdom of the Perl Monks concerning the following question:
use LWP::UserAgent; my($DEBUG,$proxy,$user,$pwd,$timeout,$VPO)= &get_options; if ($proxy eq '') { print " No Proxy Server specified\n" if ($DEBUG); $proxy='<noproxy>'; $ua=LWP::UserAgent->new; $ua->timeout($timeout) if(defined($timeout)); $req=HTTP::Request->new(GET=> "$url"); $res= $ua->request($req); print "$url---url\n" if($DEBUG); print "status=",$res->status_line,"\n" if($DEBUG); print "is_success=",$res->is_success,"\n" if($DEBUG); }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Getting a web page with LWP
by derby (Abbot) on Jul 22, 2003 at 12:17 UTC | |
by chimni (Pilgrim) on Jul 23, 2003 at 05:09 UTC |