- 论坛徽章:
- 0
|
<form name="inputForm" method="POST" action="http://rdp.cme.msu.edu/seqmatch/SeqmatchControllerServlet/start" enctype="multipart/form-data">
<input type="hidden" name="printParams" value="no">
<input type="hidden" name="fromDB" value="no">
<h3 class="row">Please enter your sequences:</h3>
<div class="details">
<b>Running Jobs:</b> 0<br>
<b>Pending Jobs:</b> 0<br><br>
<br>
<p><a href="http://rdp.cme.msu.edu/seqmatch/seqmatch_help.jsp#inputFormat">Choose a file to upload</a>:
<input name="sequence_file" type="file" size="40"></p>
<br>
<p>Cut and paste sequence(s) (in Fasta, GenBank, or EMBL format):
<br>
<textarea name="sequence" wrap="off" rows="10" cols="50"></textarea>
</p>
上面是http://rdp.cme.msu.edu/seqmatch/seqmatch_intro.jsp这个网页的源代码主要信息,我通过post请求获取不了返回的网页,求大家帮忙!!!!
下面是我写的程序:
use LWP::UserAgent; #从数据库中获取数据
use warnings;
my $browser=LWP::UserAgent->new; #浏览网页连接
my $SUSUI_URL="http://rdp.cme.msu.edu/seqmatch/SeqmatchControllerServlet/start";
my $seq_16s = "CGGCGGACGGGTGAGTAACACGTGGGCAACCTGCCTGTAAGACTGGGATAACTCC";
my $response=$browser->post($SUSUI_URL,['sequence'=>$seq_16s],'Content_Type' => 'multipart/form-data' ); #在目的页面发送post请求
print $response->content;#啥都没有= =!,求帮助
|
|