Re^3: WWW::Mechanize problem

[jasonk]

Go to the website in a browser. Select 'View Source'. Search for the word 'form'. Discover that form #1 is the search box in the upper right hand corner, and you are attempting to set non-existent fields in the wrong form.

After that, either try $mech->form_number(2), or better yet $mech->form_name( 'zipForm' ) or even $mech->form_with_fields( 'zipCode' ).

[SavagePerl]

Awesome. Thanks man. Now I got this lol... Input 'zipCode' has maxlength '5' at C:/Perl/lib/WWW/Mechanize.pm line 1247 Here is the code:

 use strict;
    use warnings;
print "What zip code? \n";
  
    my $module_name = <STDIN>
      or die "Must specify module name on command line";


    use WWW::Mechanize;
    my $browser = WWW::Mechanize->new();


    $browser->get("http://www.unitrinspecialty.com/us/locator/");

    $browser->form_name('zipForm');
    $browser->field("zipCode", $module_name);
    $browser->click();

[ikegami]

"12345\n" is 6 characters. chomp

[ikegami]

You mentioned the command line in your error message. Perhaps you want to use @ARGV instead of <STDIN>?

use strict;
use warnings;

use WWW::Mechanize qw( );
use File::Basename qw( basename );

sub usage {
   my $prog = basename($0);
   print STDERR ("usage: $prog {zipcode}\n");
   exit(1);
}

my ($zip_code) = @ARGV;
defined($zip_code) or usage();

my $browser = WWW::Mechanize->new();
$browser->get("http://www.unitrinspecialty.com/us/locator/");

$browser->form_name('zipForm');
$browser->field("zipCode", $module_name);
$browser->click();