LWP:UserAgent is mondo cool! Thanks Guys!

[kempis555]

Reading a different thread here tipped me off to PERL's ability to easilty read the contents out of any web site!

This was a neato fix for my local problem of having some servers in front of the firewall and some behind, and only the HTTP port is available on any of them. (Yeah, the network administrators here are long-eared galoots.)

Anyhoot the idea would be cool for anyone who wants his/her perl to get something from the web:

#this example is accessing a cgi
use LWP::UserAgent;
$ua = new LWP::UserAgent;
$ua->agent("AgentName/0.1 " . $ua->agent);
# Create a request
my $req = new HTTP::Request GET => '

http://www.site.com/x.cgi?1=whatever';

$req->content_type('application/x-

http://www-form-urlencoded');

$req->content('match=

http://www&errors=0');

# Pass request to the user agent and get a response back
my $res = $ua->request($req);
# Check the outcome of the response
if ($res->is_success) {
$the_goods = $res->content;
else{
print "Couldn't connect to website.";
}

 

[tsdragon]

I agree, LWP UserAgent is a VERY useful tool! I've even used it to have one of my cgi programs call a cgi program on another server! My program used LWP UserAgent to set up a form post to the other server cgi program, and that program simply returned a basic "page" that I parsed to find out the results. It saved me a LOT of hassle to be able to do that.
Tracy Dryden
tracy@bydisn.com

Meddle not in the affairs of dragons,
For you are crunchy, and good with mustard.