試用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; # 輸出得到的網頁內容