in reply to Re: Re: LWP::Simple setting a proxy
in thread LWP::Simple setting a proxy
#!/usr/bin/perl -w # Uses use strict; use HTTP::Request::Common qw(POST); use LWP::UserAgent; # URL my $url = 'http://www.live365.com/cgi-bin/directory.cgi'; # User Agent Object my $ua = LWP::UserAgent->new; $ua->proxy(['http', 'ftp'], 'http://10.2.7.11:8080'); #The username that you are looking up print "Please input username: "; my $username = <STDIN>; chomp($username); # Request my $req = POST $url, [ genre=>'search', searchdesc=> $username, searchfields=>'H']; my $page=$ua->request($req)->as_string; #The rest of your code goes here
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Re: Re: Re: LWP::Simple setting a proxy
by thealienz1 (Pilgrim) on Jan 18, 2001 at 20:51 UTC |