Re^3: WWW:Mechanize problems

What condition do you want to set it true for?

It looks to me like your tests would be better structured:

        if($inputfield =~ m/(F|f)(irst)?name/) {
            $mech->set_fields( $inputfield => $fname);
            print "matched firstname regex\n";

        } elsif ($inputfield =~ /(L|l)(ast)?name/) {
            $mech->set_fields( $inputfield => $lname);

        } elsif ($inputfield =~ /(A|a)ddress[123]?/) {
            $mech->set_fields( $inputfield => $address);

        } elsif ...

        } else {
            $submit="0";
            print "Setting submit=0\n";
        }
[download]

DWIM is Perl's answer to Gödel

Comment on Re^3: WWW:Mechanize problems Download Code

Replies are listed 'Best First'.
Re^4: WWW:Mechanize problems by stanislav5000 (Novice) on Mar 29, 2007 at 02:02 UTC
I would like to set it true if it does not match any of the regular expressions listed. I have restructured it like this: foreach my $inputfield (@inputfields) { if($inputfield =~ /(F\|f)(irst)?name/) { $mech->set_fields( $inputfield => $fname); print "matched firstname regex\n"; } elsif($inputfield =~ /(L\|l)(ast)?name/) { $mech->set_fields( $inputfield => $lname); } elsif($inputfield =~ /(A\|a)ddress[123]?/) { $mech->set_fields( $inputfield => $address); } elsif($inputfield =~ /(C\|c)ity/) { $mech->set_fields( $inputfield => $city); } elsif($inputfield =~ /(S\|s)tate/) { $mech->set_fields( $inputfield => $state); } elsif($inputfield =~ /(Z\|z)ip/) { $mech->set_fields( $inputfield => $zip); } elsif($inputfield =~ /(P\|p)hone/) { $mech->set_fields( $inputfield => $phone); } else { $submit="0"; print "Setting submit=0\n"; } } [download] And it doesn't look like any of my regex's are matching. But if I take the else line out, it submits the form no problem. Any thoughts?	[reply] [d/l]
Re^5: WWW:Mechanize problems by GrandFather (Saint) on Mar 29, 2007 at 02:05 UTC
As a diagnostic you could print what it's failing to match in the else. DWIM is Perl's answer to Gödel	[reply]