zoukankan      html  css  js  c++  java
  • perl 模拟curl 发送json数据

    CURL -XPUT 'http://192.168.1.10:9200/library/' -d '{
    "settings": {
     "index": {
    "number_of_shards": 5,
    "number_of_replicas": 1
     }
     }
    }'
    
    用curl可执行如下命令:
    
    curl -l -H "Content-type: application/json" -X POST -d '{"phone":"13521389587","password":"test"}' http://domain/apis/users.json
    
    
    ##发送消息
    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/test/";  
        my $post = {  
            settings => { 
              index=>{		
              "number_of_shards"=> 5,
              "number_of_replicas"=>0
              }			
            }  
        };  
        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();            #获取的是响应正文  
    
    
    
    
    

  • 相关阅读:
    Linux常用命令集合
    运用栈实现表达式求值(+,-,*,/运算)
    队列
    变参函数
    C语言--递归程序的设计
    指针的灵活应用--内核链表中的container_of
    C语言-求回文数字
    压力测试和负载测试
    测试理论
    Dubbo接口调用
  • 原文地址:https://www.cnblogs.com/hzcya1995/p/13349899.html
Copyright © 2011-2022 走看看