试用LWP实现POST数据发送

LWP

参考这位仁兄的：Perl用LWP实现GET/POST数据发送

#!/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; # 输出得到的网页内容