# Create a user agent object use LWP::UserAgent; # why this instead of use LWP; ? $ua = LWP::UserAgent->new; #what's happening here?, in particular, who + are the functions, who are the arguments and who are the results? $ua->agent("MyApp/0.1 "); # what is agent("...") and why is it needed? # Pretty much the same for the rest of this example. # Create a request my $req = HTTP::Request->new(POST => 'http://www.perl.com/cgi-bin/BugG +limpse'); $req->content_type('application/x-www-form-urlencoded'); $req->content('match=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) { print $res->content; } else { print "Bad luck this time\n"; }
update (broquaint): added <code> tags
In reply to Re: Re: PERL HTTP posts.
by xode
in thread PERL HTTP posts.
by xode
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |