[perl] in een script een POST request nabootsen

[Verwijderd]

Weet iemand hoe ik in een script een POST request na kan bootsen, ik geloof dat ik dat via LWP::Useragent moet doen, maar dat kon ik niet vinden in de docs.

HELLUP!

Fox

[Mithrandir]

Op zondag 04 november 2001 17:25 schreef poepkind het volgende:
Weet iemand hoe ik in een script een POST request na kan bootsen, ik geloof dat ik dat via LWP::Useragent moet doen, maar dat kon ik niet vinden in de docs.

HELLUP!

Fox

Lees de laatste nieuwsinzending ff in het mededelingenforum.

Verder kan ik je niet helpen

[Verwijderd]

sorry, je bedoelde toch dat ik er een begroeting onder had gezet? sorry. (Ik zet hier express me naam niet onder...)

[Verwijderd]

victory!

code:

# Create a user agent object
use LWP::UserAgent;
$ua = new LWP::UserAgent;
$ua->agent("AgentName/0.1 " . $ua->agent);

# Create a request
my $req = new HTTP::Request POST => 'http://www.perl.com/cgi-bin/BugGlimpse';
$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";
}