Submit HTML Forms with WWW:Mechanize

[stanislav5000]

I would like to use WWW::Mechanize to look for forms that contain certain fields and automatically populate them with predetermined information. The catch is that I don't know PRECISELY what the field names will be. I want to fill out things that roughly match "FirstName, fname, Fname, etc" and was wondering if this is a good place to use regular expressions. Here is the code I'm using:

#!/usr/bin/perl
use WWW::Mechanize ;

#Prepopulated Information
my $fname="Test";
my $lname="User";
my $address="1234 Example Street";
my $city="New York";
my $state="New York";
my $zip="10010";
my $phone="2135555555";

#Create new WWW::Mechanize object
my $mech = WWW::Mechanize->new ;

#Fetch URL or Die Tryin'
$mech ->get("http://your.url/") ;
die $mech ->res->status_line unless $mech ->success ;

#Return list of forms found in the last fetched page to hand off to HT
+ML::Form
my @webforms = $mech->forms();
#Examine each form 
foreach my $form (@webforms) {
    my @inputfields = $form->param;
    #Examine each input field
    foreach my $inputfield (@inputfields) {
        if($inputfield =~ /(F|f)(irst)?name/) {
        $mech->set_fields( $inputfield => $fname);
        }
        if($inputfield =~ /(L|l(ast)?name/) {
        $mech->set_fields( $inputfield => $lname);
        }
        if($inputfield =~ /(A|a)ddress[123]?/) {
        $mech->set_fields( $inputfield => $address);
        }
        if($inputfield =~ /(C|c)ity//) {
        $mech->set_fields( $inputfield => $city);
        }        
        if($inputfield =~ /(S|s)tate//) {
        $mech->set_fields( $inputfield => $state);
        }
        if($inputfield =~ /(Z|z)ip//) {
        $mech->set_fields( $inputfield => $zip);
        }
        if($inputfield =~ /(P|p)hone//) {
        $mech->set_fields( $inputfield => $phone);
        }
    # Submit Completed Form or Die Tryin'
    $mech ->submit ;
    die $mech ->res->status_line unless $mech ->success ;
    # If the form sends you somewhere, you can catch it :
    my $new_url = $mech ->response->request->uri->as_string ;
    }
}

Thanks!

[Fletch]

Hrmm . . .

• you want to flexibly fill in personal information in arbitrary forms using predetermined information
• most of the time one would be doing this would be to create accounts somewhere
• most modern web browsers provide this functionality themselves, so J Random User really doesn't have a reason to need to automate this themself
• spammers and other nefarious individuals would however be attempting to automatically sign up for large numbers of accounts

You've just created your account today and have no prior history here so there's no existing reputation to go on, but this really sets the spammer-sense tingling. Then again perhaps you can provide a plausible explanation as to what you're trying to do that doesn't reek of naughtiness . . .

[stanislav5000]

My specific need is to perform input validation with the "predetermined information" across a bank of sanctioned sites. As you may have guessed, the predetermined text will be quite different. :) If that makes you warm and fuzzy, please kick in a little guidance. If not, thanks for the look.

[runrig]

You can use the "forms()" method to get the list of forms, then use the HTML::Form api to get the list of input fields for the desired form, then match field names to what you're looking for.

[stanislav5000]

Do you mean something like this:

#!/usr/bin/perl
use WWW::Mechanize ;

#Prepopulated Information
my $fname="Test";
my $lname="User";
my $address="1234 Example Street";
my $city="New York";
my $state="New York";
my $zip="10010";

my $mech = WWW::Mechanize->new ;

$mech ->get("http://your.url/") ;
die $mech ->res->status_line unless $mech ->success ;

#Hand off to HTML::Form
my @webforms = $mech->forms();
foreach my $form (@webforms) {
    my @inputfields = $form->param;
    foreach my $inputfield (@inputfields) {
        if($inputfield =~ /(F|f)(irst)?name/) {
        $mech->set_fields( $inputfield => $fname);
        }
        if($inputfield =~ /(L|l(ast)?name/) {
        $mech->set_fields( $inputfield => $lname);
        }
        if($inputfield =~ /(A|a)ddress/) {
        $mech->set_fields( $inputfield => $address);
        }
        if($inputfield =~ /(C|c)ity//) {
        $mech->set_fields( $inputfield => $city);
        }        
        if($inputfield =~ /(S|s)tate//) {
        $mech->set_fields( $inputfield => $state);
        }
        if($inputfield =~ /(Z|z)ip//) {
        $mech->set_fields( $inputfield => $zip);
        }
        if($inputfield =~ /(P|p)hone//) {
        $mech->set_fields( $inputfield => $phone);
        }
    # Submit
    $mech ->submit ;
    die $mech ->res->status_line unless $mech ->success ;
        # If the form sends you somewhere, you can catch it :
        my $url = $mech ->response->request->uri->as_string ;
    }
    
}

Let me know if I'm barking up the right tree.

[runrig]

That's about what I was thinking. You've got extra slashes on the end of some of your regexes, and some can be simplified, e.g.

/(S|s)tate/

can be:

/[Ss]tate/

and if you don't care about case sensitivity at all, you can use:

/(?i)state/

or

/state/i