##发送消息
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/_mget/";
my $post = {
"docs" =>[
{
"_index" => "library",
"_type"=>"books",
"_id"=>1
},
{
"_index" => "library",
"_type"=>"books",
"_id"=>2
},
{
"_index" => "library",
"_type"=>"books",
"_id"=>3
}
]
};
use JSON qw(encode_json);
$json_string = encode_json($post);
my $req = HTTP::Request->new(
'POST' => $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(); #获取的是响应正文
D:elasticsearch api>perl post_mget_index.pl
{"docs":[{"_index":"library","_type":"books","_id":"1","_version":1,"found":true
,"_source":{
"title":"Elasticsearch test",
"name" :{
"first":"zhao",
"last":"yangjian"
},
"publish_date":"2017-01-29",
"price":"2421424.99"
}
},{"_index":"library","_type":"books","_id":"2","_version":1,"found":true,"_sour
ce":{
"title":"Elasticsearch test",
"name" :{
"first":"zhao",
"last":"yangjian"
},
"publish_date":"2017-01-29",
"price":"85245.99"
}
},{"_index":"library","_type":"books","_id":"3","_version":2,"found":true,"_sour
ce":{
"title":"Elasticsearch test",
"name" :{
"first":"zhao",
"last":"yangjian"
},
"publish_date":"2017-01-29",
"price":"23.99"
}
}]}
D:elasticsearch api>