forms - Perl www::mechanize

Question

我对 perl 模块非常www::mechanize陌生，我想功能化 snp id。为此，我必须制作一个网络爬虫，但我遇到了困难。我不知道如何使用字段名称或如何分配值。我必须访问这个网站：http: //www.ncbi.nlm.nih.gov/projects/SNP/。请告诉这里的字段名是什么。提前致谢。我的意思是在这里指定一个字段名称，我必须将 snp id 用于搜索。我不明白该怎么做。请任何人帮助。

   use WWW::Mechanize;
   use strict;
   use warnings;
   my $mech = WWW::Mechanize->new;

   my $snp = 'rs111';
   my $URL = "http://www.ncbi.nlm.nih.gov/projects/SNP/";

   $mech->get($URL);

   $mech->submit_form(
   form_number => '1',
   fields => {

   'ID' => $snp,
    },
    );
    print $mech->content();

Answer 1

使用诸如Firefox 的 Web Developer 插件之类的工具。

该页面具有三种形式。

1. Id       Name     Method   Action
   ------   ------   ------   --------------------------------------------------
   Search   Search   post     http://www.ncbi.nlm.nih.gov/coreutils/dispatch.cgi
   
   Elements
   ========
   Id       Name     Type     Value      Label   Size   Maximum   Length
   ------   ------   ------   --------   -----   ----   -------   ------
   Search   db       select   13
   term     term     text                for     24
   Search   submit   submit   Go
   Search   SITE     hidden   NcbiHome
   

2. Id   Name    Method   Action
   --   -----   ------   --------------------------------------------------
        frmGo   get      http://www.ncbi.nlm.nih.gov/entrez/query.fcgi
   
   Elements
   ========
   Id   Name       Type     Value     Label   Size   Maximum   Length
   --   --------   ------   -------   -----   ----   -------   ------
        db         hidden   Books
        cmd        hidden   Search
        term       input                      12
        Submit     submit   Go
        doptcmdl   hidden   TOCView
   

3. Id   Name       Method   Action
   --   --------   ------   --------------------------------------------------
        searchID   post     getID.cgi
   
   Elements
   ========
   Id       Name         Type     Value          Label   Size   Maximum   Length
   ------   ----------   ------   ------------   -----   ----   -------   ------
            searchType   hidden   adhoc_search
   sub_id   sub_id       input                   ID:
   IDtype   Type         select   dbSNP_rs
            submit2      submit   Search
            reset        reset    Reset
   

Answer 2

Try this version (your form is named Search and field name you need is db):

$mech->submit_form(
    name => "Search",
    fields => {
        db => $snp,
    },
    button => "submit",
);

Answer 3

每个网络浏览器都有开发人员工具： Opera 的Dragonfly（它是内置的，我大部分时间都使用它）， Firefox 的Firebug等。我需要的大多数此类工具都需要右键单击所需的元素查看并选择“使用...检查元素”之类的内容