创建索引

PUT /customer?pretty

get  /customer

{
  "customer": {
    "aliases": {},
    "mappings": {},
    "settings": {
      "index": {
        "creation_date": "1496004549332",
        "number_of_shards": "5",
        "number_of_replicas": "1",
        "uuid": "QDd1jqLKSWqGvmW2iYbYVQ",
        "version": {
          "created": "2030499"
        }
      }
    },
    "warmers": {}
  }
}


[elk@node01 api]$ cat a4.pl 
##发送消息
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://192.168.137.2:9200/customer?pretty";  
    my $req = HTTP::Request->new(  
        'POST' => $login_url
    );  
    $req->content_type('application/json; charset=UTF-8')  
      ;    #post请求,如果有发送参数，必须要有这句  
    my $res = $ua->request($req);  
    print $res->content();            #获取的是响应正文  

[elk@node01 api]$ perl a4.pl 
{
  "acknowledged" : true
}

get  /customer

{
  "customer": {
    "aliases": {},
    "mappings": {},
    "settings": {
      "index": {
        "creation_date": "1496004705002",
        "number_of_shards": "5",
        "number_of_replicas": "1",
        "uuid": "ad5b52-rRHG0Y8xSYCcdwA",
        "version": {
          "created": "2030499"
        }
      }
    },
    "warmers": {}
  }
}