使用WWW :: Mechanize自动搜索

Question

I am trying to write a Perl script which will automatically key in search variables on this LexisNexis search page and retrieve the search results.

I am using the WWW::Mechanize module but I am not sure how to figure out the field name of the search bar itself. This is the script I have so far ->

#!/usr/bin/perl
use strict;
use warnings;
use WWW::Mechanize;
my $m = WWW::Mechanize->new();

my $url = "http://www.lexisnexis.com/hottopics/lnacademic/?verb=sr&csi=379740";
$m->get($url);

$m->form_name('f');
$m->field('q', 'Test');
my $response = $m->submit();
print $response->content();

However, I think the "Name" of the search box in this website is not "q". I am getting the following Error - "Can't call method "value" on an undefined value at site/lib/WWW/Mechanize.pm line 1442." Any help is much appreciated. Thank you !

Answer 1

If you disable the JavaScript in your browser then you will notice that the search form doesn't load which means it's being loaded by JavaScript, that's why you are unable to handle it with WWW::Mechanize . Have a look at WWW::Mechanize::Firefox , this might help you with your task. Check out the example scripts , cookbook and FAQs .

You can also do the same using Selenium, see Gabor's tutorial on Selenium .