[Melbourne-pm] LWP::UserAgent to post to web form

Peter Machell peter at machell.net
Wed Nov 15 00:10:50 PST 2006


Newbie alert. Help appreciated.

I'm trying to script data to send to a web form.

Please point me in the right direction if LWP::UserAgent is not an  
appropriate way to do this.

The code below is hitting the server but not sending a POST request.   
$ua returns LWP::UserAgent=HASH(0x82d0ab0)

Thanks in advance,

Peter.


#!/usr/bin/perl

use strict;
use HTTP::Request::Common;
use LWP::UserAgent;

my($ua) = LWP::UserAgent->new;

my($url) = 'http://foo.com/';

my($send) = $ua->request(POST $url,
         Content_Type => 'form-data',
         Content      =>
                 [
                 userid          =>      'test',
                 firstname       =>      'Test',
                 ]
);


More information about the Melbourne-pm mailing list