perl put 创建索引<3>
来源:互联网 发布:vb mac版 编辑:程序博客网 时间:2024/05/14 11:57
##发送消息use LWP::UserAgent; use LWP;use Encode;use LWP::Simple;use LWP::UserAgent;use HTTP::Cookies;use HTTP::Headers;use HTTP::Response;use Encode;use URI::Escape;use URI::URL;use JSON;use Data::Dumper; my $ua = LWP::UserAgent->new; $ua->agent("Mozilla/5.0 (Windows NT 6.1; rv:30.0) Gecko/20100101 Firefox/30.0"); my $cookie_jar = HTTP::Cookies->new( file=>'lwp_cookies.txt', autosave=>1, ignore_discard=>1); $ua->cookie_jar($cookie_jar); my $login_url ="http://10.10.17.2:9200//megacorp/employee/4"; my $post = { "first_name" => "kobe", "last_name" => "bri", "age" => 35, "about" => "I like shoes", "interests"=> [ "run" ] }; use JSON qw(encode_json); $json_string = encode_json($post); my $req = HTTP::Request->new( 'PUT' => $login_url ); $req->referer("https://wx.qq.com/?&lang=zh_CN"); $req->content_type('application/json; charset=UTF-8') ; #post请求,如果有发送参数,必须要有这句 $req->content("$json_string"); #发送post的参数 my $res = $ua->request($req); print $res->content(); #获取的是响应正文
0 0
- perl put 创建索引<3>
- perl put 创建索引2
- perl put 请求创建elasticsearch 索引
- put 创建索引
- perl put 发送数据
- Perl的ftp----put文件
- perl 模拟curl put请求
- 3 Perl - 特殊的数组索引
- perl PUT 请求加请求头
- Perl常用lib索引
- perl DELETE 删除索引
- put ()
- 创建索引
- 创建索引
- 索引创建
- 创建索引
- 创建索引
- 创建索引
- 一天一个知识点-结构体
- MongoDB文档翻译-CRUD操作-从查询中返回投影字段
- 图结构练习——BFS——从起始点到目标点的最短步数
- MongoDB文档翻译-CRUD操作-查询null或缺失的字段
- LDA主题模型评估方法--Perplexity
- perl put 创建索引<3>
- WebStorm破解方法,破解码
- MongoDB文档翻译-CRUD操作-在mongo Shell中迭代游标
- java设计模式
- sqli-labs学习教程(六)
- pat 1010. Radix (25)
- Android核心技术之(10)---动画(Aimation)
- 深度学习零基础进阶第一弹
- SQLAlemchy性能测试