如何使用LWP模块获取访问该网站并获取数据（急盼回复）

ghui501

任务：使用LWP模块递交指定序列到http://www.ebi.ac.uk/Tools/pfa/iprscan/网站进行搜索并获得数据，下面为小弟写的程序，但始终无法访问，急盼各位高手回复解决，非常感谢！

#!/usr/bin/perl

use LWP::UserAgent;
open STDOUT, ">aas713s";
my $browser = LWP::UserAgent->new;
$protein = "MGDHAWSFLKDFLAGGVAAAVSKTAVAPIERVKLLLQVQHASKQISAEKQYKGIIDCVVR";
my $SUSUI_URL = "http://www.ebi.ac.uk/Tools/services/web/toolform.ebi";
my $response = $browser->post( $SUSUI_URL, [ 'sequence' => $protein,],'tool'=>'iprscan','Content_Type' => 'form-data','sumbit'=>'sumbit');

if ($response->is_success) {
        print $response->content;
} else {
        print "Bad luck this time\n";
}

ghui501

use strict;
use warnings;
use File::Slurp;

use LWP;
open(WF,">result.html") or die $!;
my $browser = LWP::UserAgent->new();
my $protein = "MSSSTPFDPYALSEHDEERPQNVQSKSRTAELQAEIDDTVGIMRDNINKVAERGERLTSI";
my $response = $browser->post(
   'http://www.ebi.ac.uk/Tools/services/web_iprscan/toolform.ebi',
   'Content-Type' => 'multipart/form-data',     #表示类型为 multipart/form-data
  
   'Content' =>[
       'tool' => 'iprscan',
       'sequence' => $protein,
           'upfile'=>'',
       'appl' => 'blastprodom',
       'appl' => '',
'appl' => '',
'appl' => '',
'appl' => '',
'appl' => '',
'appl' => '',
'appl' => '',
'appl' => '',
'appl' => 'superfamily',
'appl' => '',
'appl' => '',
'appl' => '',
'appl' => '',
'email'=>'',
'title'=>'',
   ],
   'submit'    => 'Submit',
);

print WF $response->content; # 输出返回的网页内容
close(WF);



修改了代码，但还不行，跪拜高手指点，非常感激！

bzdghdn

我建议你用抓包或者http分析工具看一下你发出的数据和通过网页直接提交的数据的差别，做到一致。

ghui501

我建议你用抓包或者http分析工具看一下你发出的数据和通过网页直接提交的数据的差别，做到一致。
bzdghdn 发表于 2011-08-09 12:04

非常感谢，我试试!

tempo8

[保留] LWP中文FAQ [仙子整理]
http://bbs.chinaunix.net/thread-1805600-1-1.html