Perl скрипт для автоматизации сайта по биоинформатике

Question

Я бы хотел автоматизировать этот сайт с помощью Perl-скрипта

http://bioinfo.uni -plovdiv.bg / microinspector /

Это то, что у меня есть, и я не уверен, как после этого попасть на страницу вывода, я знаю, что это как-то связано с POST, redirect_ok ?, response (), но я не уверен. Я прочитал документацию, но смущен некоторыми вещами. Спасибо.

use strict;
use warnings;

use WWW::Mechanize;

# create object for browser
my $browser = WWW::Mechanize->new();
my ($sequence, $results);
open (DRG, "<microRNA_target_cspg_drg_output.fa") || die "cannot open microRNA_target_cspg_drg_output.fa";

while (<DRG>) {
        chomp;
        $sequence=$_;
        last; #for testing purposes
}
close (DRG);

$browser->get("http://bioinfo.uni-plovdiv.bg/microinspector/");
$browser->form_number(1);
$browser->field("target_sequence", $sequence);
$browser->field("Choose an organism : ", "Mus musculus");
$browser->click_button( number => 1);

Answer 1

Вы должны начать с WWW :: Mechanize . На этой странице приведены примеры отправки форм и все, что вам понадобится.

РЕДАКТИРОВАТЬ: в качестве ответа на ваше обновление, если вы хотите получить содержимое страницы, используйте метод content, как в этом примере:

my $content = $browser->content();

См. это для получения дополнительной информации.