Perl Requires Chilkat v11.0.0+

Send XMLHttpRequest and Get Response

See more HTTP Examples

Demonstrates how to send an HTTP XML request and retrieve the response. Perl

use chilkat();

$success = 0;

#  This example assumes the Chilkat API to have been previously unlocked.
#  See Global Unlock Sample for sample code.

$http = chilkat::CkHttp->new();

#  The XML sent in the body of the request is application
#  specified -- it should contain whatever the server-side
#  application is expecting..
$xmlStr = "<?xml version=\"1.0\" encoding=\"UTF-8\"?><appXml><something>123</something></appXml>";

$urlEndpoint = "http://www.chilkatsoft.com/xmlEcho.asp";
$xmlCharset = "utf-8";

$resp = chilkat::CkHttpResponse->new();
$success = $http->HttpStr("POST",$urlEndpoint,$xmlStr,$xmlCharset,"application/xml",$resp);
if ($success == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

#  The raw HTTP request sent by the above call is:

#  POST /xmlEcho.asp HTTP/1.1
#  Content-Type: text/xml
#  Host: www.chilkatsoft.com
#  Accept: */*
#  Accept-Charset: ISO-8859-1,utf-8;q=0.7,*; q=0.7
#  Accept-Language: en-us,en;q=0.5
#  Accept-Encoding: gzip
#  Content-Length: 81
#  
#  <?xml version="1.0" encoding="UTF-8"?><appXml><something>123</something></appXml>

#  Examine the Body of the HTTP response
#  This would be the XML response sent by the server.
print $resp->bodyStr() . "\r\n";