生產:

你可以產生訊息 通過POST request to the server, like

curl -u admin:admin -d "body=message" http://localhost:8161/api/message/TEST?type=queue

-d/--data <data>   HTTP POST data (H)  
  
  
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://admin:admin\@192.168.137.3:8161/api/message/czcb2017?type=queue";      
   my $post = {      
     
         "body"=>"messag"  
    };      
    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();            #獲取的是響應正文  
	
注意:  如果沒有型別引數是被指定,預設是建立一個topic.

改變預設的queue,初始化 servlet 使用一個初始引數在webapps/demo/WEB-INF/web.xml



# -*- coding: utf-8 -*-
import urllib2
import urllib
import cookielib
import json
import httplib
import time
import re
import os
import requests

s = requests.session()
print s.headers

login_url = 'http://admin:
 
[email protected]:8161/api/message/czcb2017?type=queue'
data = {'body': '12223345'}
# data = urllib.urlencode(data)
headers = {
    'User-Agent': 'Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:54.0) Gecko/20100101 Firefox/54.0',
    'Accept': 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8',
}
response = s.post(login_url, data=data, headers=headers)
print  response
print response.status_code
print response.content