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

我想用Perl脚本自动化这个网站

这就是我到目前为止所拥有的，我不确定在这之后如何进入输出页面，我知道这与POST、重定向、回复有关，但我不确定。我通读了文档，但对一些事情感到困惑。谢谢

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

你应该从一开始。它的页面提供了提交表单的示例，以及您需要的任何其他内容

编辑：作为对更新的回复，如果您想获取页面内容，请使用content方法，如本例所示：

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

有关更多信息，请参阅

你应该从一开始。它的页面提供了提交表单的示例，以及您需要的任何其他内容

编辑：作为对更新的回复，如果您想获取页面内容，请使用content方法，如本例所示：

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

---

有关更多信息，请参阅

嗨，Geo，在阅读了你的建议并尝试之后，我仍然有困难。我有几个问题。在我点击按钮后，页面是否提交，或者我是否需要为此做些什么。当您单击网站上的搜索时，会弹出另一个网页；我没有从以前就开始表达我的问题，我想知道我是如何进入新的一页的。很抱歉提出这些问题，但这对我来说是全新的。谢谢。我的另一个问题是关于表格编号，如果我有表格编号1和表格编号2，这是否意味着它是表格的两个独立实例，或者表格编号2是您单击/提交表格1后表格编号1的输出？谢谢！是的，当您单击时，表单将被提交。但是，如果打开了另一个页面，为什么不直接打开该页面呢？而不是转到起始页，然后转到搜索页。您甚至可以直接发布到您的搜索表单，并且可以将referer设置为指向起始页。对于表单_编号，它实际上表示页面中的一个表单。例如，form_number3将选择当前页面中的第三个表单。嗨，Geo，在阅读了您建议的内容并尝试之后，我仍然有问题。我有几个问题。在我点击按钮后，页面是否提交，或者我是否需要为此做些什么。当您单击网站上的搜索时，会弹出另一个网页；我没有从以前就开始表达我的问题，我想知道我是如何进入新的一页的。很抱歉提出这些问题，但这对我来说是全新的。谢谢。我的另一个问题是关于表格编号，如果我有表格编号1和表格编号2，这是否意味着它是表格的两个独立实例，或者表格编号2是您单击/提交表格1后表格编号1的输出？谢谢！是的，当您单击时，表单将被提交。但是，如果打开了另一个页面，为什么不直接打开该页面呢？而不是转到起始页，然后转到搜索页。您甚至可以直接发布到您的搜索表单，并且可以将referer设置为指向起始页。对于表单_编号，它实际上表示页面中的一个表单。例如，form_number3将选择当前页面中的第三个表单。