perl get 发送json数据＜2＞

##发送消息
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/_search";  
   my $post = {  
     "query" => {
        "filtered" => {
            "filter" => {
                "range" => {
                    "age" => { "gt" => 31 } 
                }
            },
            "query" => {

标签：use,HTTP,get,LWP,jar,perl,json,UserAgent,my
来源： https://blog.csdn.net/zhaoyangjian724/article/details/56836075