Perl Rest service Web Paramètres

Question

Je suis en train d'appeler REST service Web comme suit:

my $client = REST::Client->new(); 

$client->setHost("http://myhost.com"); 

$client->POST('/xx/yy/Submit', 
       $params, 
       {'Content-type' => 'application/json'} 
      ); 

my $response = $client->responseContent(); 

Je ne sais pas comment créer la liste des paramètres, la définition de api est comme suit:

{ 
    "Credential": { 
      "Username": "String", 
      "Password": "String" 
    }, 
    "DataCoding": "Default", 
    "Header": { 
      "From": "String", 
      "ValidityPeriod": 0 
    }, 
    "Message": "String", 
    "To": ["String"] 
} 

J'ai essayé suivant, mais ne fonctionne pas:

my %params = (Credential => { 
           Username => $username, 
           Password => $password 
          }, 
       DataCoding => 'Default', 
       Header  => { 
           From => $from, 
           ValidityPeriod => 0   
          },    
       Message => "Test", 
       To  => ['90535xxxx','90542xxxxx'] 
      ); 

$client->POST('/v1/xml/syncreply/Submit', 
       encode_json(\%params), 
       {'Content-type' => 'application/json', 
       'Accept' => 'application/json' 
       } 
      ); 

Il donne l'erreur suivante:

<ErrorCode>SerializationException</ErrorCode> 
Error: System.Runtime.Serialization.SerializationException: There was an error deserializing the object of type Barabut.Gw.Submit. The data at the root level is invalid. Line 1, position 1. ---&amp;gt; System.Xml.XmlException: The data at the root level is invalid. Line 1, position 1. 

Answer 1

J'ai écrit l'adresse de point final incorrecte, cela a fonctionné au format que j'ai écrit, désolé pour cette situation.