有关提交（）的机械化问题

我试着在论坛上寻找并搜索答案，但无法弄清楚。在提交需要时间进行计算的网页表单之后，Mechanize会等待所有计算完成（即使需要一个小时？）。看起来似乎没有发生。我正在遍历一个创建Mechanize对象的子例程，并提交一个表单并在计算完成后下载输出文件。然而，我觉得它跳转到循环的下一次迭代而没有完成所有这些任务，因为有些时候计算需要很长时间。有没有人有什么建议？谢谢。这是在子程序有关提交（）的机械化问题

sub microinspector { 
     my ($sequence, $folder) = @_; 
     print STDOUT "subroutine sequence: $sequence\n"; 
     my $browser = WWW::Mechanize->new(); 
     $browser->get("http://bioinfo.uni-plovdiv.bg/microinspector/"); 
     $browser->form_number(1); 
     $browser->field("target_sequence", $sequence); 
     $browser->select("Choose an organism : ", "Mus musculus"); 

     $browser->submit(); 
     #print $browser->content(); 
     my @links = $browser->links(); 

     chdir($folder) or die "Cannot chdir to $folder"; 

     foreach my $link (@links) { 
       #print $link->url(); 
       if($link->url() =~ /csv$/i){ 
         my $result = $browser->get($link->url()); 
         my $filename = ($link->url() =~ /\/([^\/]+)$/)[0]; 
         print "Saving $filename\n"; 
         open(OUT, ">$filename"); 
         print OUT $result->content(); 
         close(OUT); 
       } 
     } 
}

来源

2011-03-13 chickenNuggets

WWW::Mechanize可以在其构造方法的可选timeout参数（以秒为单位）（其被传递给它的父类LWP::UserAgent在这种情况下）。我认为默认值是180秒。

尝试增加它，如：

my $browser = WWW::Mechanize->new(
    timeout => 60 * 10,  # 10 minutes 
);

见关于timeout方法LWP::UserAgent文档为这是怎么治疗的具体语义。它大部分是你所期望的，但以防万一。

来源

2011-03-13 06:38:58

有关提交（）的机械化问题

回答

相关问题