WWW::Mechanize- Select 来自下拉列表

Question

我正在尝试使用 WWW::Mechanize 到 select 下拉菜单中的选项。这是我现在拥有的代码（只有下拉菜单中带有 selecting 的部分）：

use warnings;
use WWW::Mechanize;
my $url = 'http://genome.ucsc.edu/cgi-bin/hgBlat?command=start';
my $browser = WWW::Mechanize->new();
  $browser->get($url);
    $browser->select('db', 'hg38');
    $browser->submit();

select离子不起作用。

这是我手动 select 编辑所需选项的站点中此下拉菜单的 HTML：

<select name="db"> = [=13=]
     <option selected value="hg38">Dec. 2013 (GRch38/hg38)</option>
     <option value="hg19">Feb. 2009 (GRch17/hg19)</option>
     <option value="hg18">Mar. 2006 (NCBI36/hg18)</option>
     <option value="hg17">May 2004 (NCBI35/hg17)</option>
     <option value="hg16">July 2003 (NCBI34/hg16)</option>
</select>

如何使用 Mech 来 select 选项？相关网站的 url 是“http://genome.ucsc.edu/cgi-bin/hgBlat?command=start”。

Answer 1

您应该始终 use strict 在您编写的每个 Perl 程序的顶部，尤其是在寻求帮助之前代码。它会立即暴露问题

您的 WWW::Mechanize 对象在 $browser 中，但您调用了 $mech->select。 $mech 尚未定义，因此您收到一条错误消息，指出无法对未定义的值

调用 select

WWW::Mechanize- Select 来自下拉列表

WWW::Mechanize- Select from drop down list

html

perl

www-mechanize