1. GET ,获取网页内容,3句话,很简单吧!
#!perl -w
use strict;
use LWP;
my $browser = LWP::UserAgent->new();
my $response= $browser->get("http://www.toolmao.com");
print $response->content; # 输出获得的网页内容
2. POST,发送数据
#!perl -w
use strict;
use LWP;
my $browser = LWP::UserAgent->new();
my $response= $browser->post("http://www.toolmao.com", [ "test" => 123 , "data" => "gainover"]); #多加了一个被发送的数据的数组
print $response->content; # 输出获得的网页内容
3. multipart/form-data 类型的,一般上传文件的时候会用到
#!perl -w
use strict;
use LWP;
my $browser = LWP::UserAgent->new();
my $response = $browser->post(
'http://www.toolmao.com',
[ 'subject' => 'test for toolmao.com',
'uploadfile' => ["./file/工具猫.txt"], #这里是被上传的文件路径
'user' => 'Adm. Kang',
],
'Content_Type' => 'form-data' #这句不可少,表示类型为 multipart/form-data
);
print $response->content; # 输出返回的网页内容 更多的用法,例如设置User-Agent, cookies等,可以查看perl手册里关于lwp的用法部分!
Perl用LWP实现GET/POST数据发送
原创
©著作权归作者所有:来自51CTO博客作者soige的原创作品,请联系作者获取转载授权,否则将追究法律责任
上一篇:查看系统位数
下一篇:shell特殊符号含义
提问和评论都可以,用心的回复会被更多人看到
评论
发布评论
相关文章
-
Perl POST请求发送
使用Perl进行POST访问的经典方法。
POST Perl -
perl get 发送json数据
##发送消息use LWP::UserAgent; use LWP;use Encode;use LWP::Simple;use LWP::UserAgent;use HTTP::Cookies;use HTT...
json jar elasticsearch post请求 perl