Perl www :: mechanize

Question

İ очень новичок в perl-модуле www::mechanize, и я хочу функционировать snp id. Для этого я должен создать веб-гусеничный механизм, но у меня возникают трудности. Не знаете, как использовать имена полей или как назначать значения. Мне нужно получить доступ к этому сайту: http://www.ncbi.nlm.nih.gov/projects/SNP/. Пожалуйста, сообщите, что такое имена полей здесь. Заранее спасибо. Я хочу указать имя поля здесь, я должен поместить идентификатор snp для поиска. Я не понимаю, что делать. Прошу помощи.

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

Использование такого инструмента, как Web Developer add-on for Firefox.

страница имеет три формы.

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

Для каждого веб-браузера есть инструменты для разработчиков: Dragonfly для Opera (он встроен и я использую его большую часть времени), Firebug для Firefox и т. Д. Я больше всего таких инструментов вам нужно щелкнуть правой кнопкой мыши по элементу вам нужно посмотреть и выбрать что-то вроде «Проверьте элемент с ...»

Answer 3

Попробуйте эту версию (ваша форма называется поиск и имя поля вам нужно, это db):

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