我现在想到一个网页去查询,输入一个ID(例如,M128),返回一些信息。网址是:http://www.yhrd.org/Research/YSNPs我的脚本是这样的:
use HTTP::Cookies;
use HTTP::Headers;
use HTTP::Request;
use LWP::UserAgent;use strict;my $user_agent = LWP::UserAgent->new;
my $url="http://www.yhrd.org/Research/YSNPs";# define header 
my $header=HTTP::Headers->new(  
'User-Agent' =>'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; iCafeMedia; .NET CLR 2.0.50727; CIBA)',
'Content_Type' => 'application/x-www-form-urlencoded'
#'Accept_Encoding' => 'gzip, deflate',
);  #define cookie
my $g_cookie_jar = new HTTP::Cookies(
    autosave =>1,
    file => 'E:\perl_script\lwp_cookies.dat',
);push @{ $user_agent->requests_redirectable}, 'POST';
$user_agent->show_progress(1);my $post_data = 'q=M128';
$user_agent->cookie_jar($g_cookie_jar);my $request = HTTP::Request->new('POST', $url, $header, $post_data); $g_cookie_jar->add_cookie_header($request);
my $response = $user_agent->request($request);
print $response->as_string;
页面始终返回,这个post是自动的不是手动提交的,请问如何绕过?