使用WWW :: Mechanize自动搜索

Question

我正在尝试编写一个Perl脚本，该脚本将自动键入此LexisNexis搜索页面上的搜索变量并检索搜索结果。

我正在使用WWW :: Mechanize模块，但我不知道如何找出搜索栏本身的字段名称。 这是我到目前为止的剧本 - >

#!/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();

但是，我认为本网站搜索框的“名称”不是“q”。 我收到以下错误 - “无法调用方法”值“在站点/ lib / WWW / Mechanize.pm行1442上的未定义值。” 任何帮助深表感谢。 谢谢 ！

Answer 1

如果您在浏览器中禁用JavaScript，那么您会注意到搜索表单没有加载，这意味着它正在被JavaScript加载，这就是您无法使用WWW :: Mechanize处理它的原因。 看看WWW :: Mechanize :: Firefox ，这可能会帮助您完成任务。 查看示例脚本 ， cookbook和常见问题解答 。

你也可以使用Selenium做同样的事情，参见Gabor关于Selenium的教程 。