试用LWP实现POST数据发送

最新推荐文章于 2024-03-17 20:41:59 发布

weixin_33998125

最新推荐文章于 2024-03-17 20:41:59 发布

阅读量718

点赞数

文章标签： python

原文链接：https://my.oschina.net/u/727594/blog/498316

版权

2019独角兽企业重金招聘Python工程师标准>>>

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

转载于:https://my.oschina.net/u/727594/blog/498316