in reply to WWW:Mechanize problems

Do you need to move if($submit=="1") {... outside the foreach my $inputfield (@inputfields) {... loop?

Do you want print "Hit form loop on form:$formcount\n"; inside the foreach my $form (@webforms) {... loop?

Do you really intend to set $submit="0"; if $inputfield =~ /(P|p)hone/ is false for any pass through foreach my $inputfield (@inputfields) {...?

DWIM is Perl's answer to Gödel

Replies are listed 'Best First'.
Re^2: WWW:Mechanize problems
by stanislav5000 (Novice) on Mar 29, 2007 at 01:32 UTC
    Thanks! I'm getting closer. I'm not sure about the submit==1 yet. I moved form loop print statement into the form loop. Now the form count is incrementing. And my intent is to set submit="0" only if it is false for any passthrough. How can I do that? Thanks!
[reply]

      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
[reply]
[d/l]
        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]

In Section Seekers of Perl Wisdom