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();

有关详细信息，请参阅this。

Perl脚本自动化生物信息学网站

1 个答案: