How to get a URL and pass values to a form and submit with perl

dbmathis has asked for the wisdom of the Perl Monks concerning the following question:

How would I get a url and then pass values into a form and submit using perl?

Here is the code I have so far and it is not working. Please dpon't laugh :)

#!/usr/bin/perl -w

require LWP::UserAgent;

my $ua = LWP::UserAgent->new;
my $url = 'http://someurl.jsp';
my @data = ( ['butt1', 'Resubmit submissions'], ['Max Age', '30'], ['S
+ubmissions', '9967569:4524703']);

my $response = $ua->post( $url, \@data );

if ($response->is_success) {
    print $response->content;  # or whatever
}
else {
    die $response->status_line;
}
[download]

After all this is over, all that will really have mattered is how we treated each other.

Comment on How to get a URL and pass values to a form and submit with perl Download Code

Replies are listed 'Best First'.
Re: How to get a URL and pass values to a form and submit with perl by Joost (Canon) on Mar 26, 2008 at 19:27 UTC
The general advice is to use WWW::Mechanize for this kind of thing. "What should it profit a man, if he should win a flame war, yet lose his cool?"	[reply]
Re^2: How to get a URL and pass values to a form and submit with perl by Anonymous Monk on Mar 26, 2008 at 20:44 UTC
Any way of doing this without that module? The perl perl module is not possible on the server I am using.	[reply]
Re^3: How to get a URL and pass values to a form and submit with perl by Joost (Canon) on Mar 26, 2008 at 21:07 UTC
Try changing the `my @data` line to: `my @data = ( 'butt1', 'Resubmit submissions', 'Max Age', '30', 'Submis +sions', '9967569:4524703');` [download] WWW::Mechanize just makes it a little easier. "What should it profit a man, if he should win a flame war, yet lose his cool?"	[reply] [d/l] [select]