试用LWP实现POST数据发送

LWP

#!/usr/bin/perl

use strict;
use warnings;
use LWP;
# 的确可行

my $browser = LWP::UserAgent->new();
my $str = "ATGATGCATACTGAACGCAAAAATAGG"; # 序列已乱改

my $response= $browser->post("http://wheat.pw.usda.gov/cgi-bin/blast/blastDEM.cgi", [
"PROGRAM" => 'blastn',
#"DATALIB" => 'TREP-NR',
"DATALIB" => 'GrainGenes',
"SEQUENCE" => $str,
],  'Content_Type' => 'form-data'); #多加了一个被发送的数据的数组

print $response->content; # 输出获得的网页内容