in reply to Re^2: WWW::Mechanize problem
in thread WWW::Mechanize problem

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' ).

www.jasonkohles.com
We're not surrounded, we're in a target-rich environment!

Replies are listed 'Best First'.
Re^4: WWW::Mechanize problem
by SavagePerl (Novice) on May 29, 2008 at 03:36 UTC
    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();

    [download]
[reply]
[d/l]
[select]
      "12345\n" is 6 characters. chomp
[reply]

      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();

      [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom