Perl

Example: Http.HttpBd method

Shows how to use the HttpBd method to send an HTTP POST request with the contents of a BinData as the request body. The example sends the following request:

POST /api/v1/sites/123/deploys HTTP/1.1
Host: example.com
Accept: */*
Accept-Encoding: gzip
Content-Type: application/zip
Content-Length: 123456

[binary data bytes of the BinData]

Also see: Chilkat Http Default and Auto-Filled Headers

Perl

use chilkat();

$success = 0;

$localFilePath = "C:/example/zips/data.zip";
$bd = chilkat::CkBinData->new();
$success = $bd->LoadFile($localFilePath);
if ($success == 0) {
    print $bd->lastErrorText() . "\r\n";
    exit;
}

$url = "https://example.com/api/v1/sites/123/deploys";

# Send a POST with the contents of the BinData in the binary HTTP request body.
$resp = chilkat::CkHttpResponse->new();
$http = chilkat::CkHttp->new();
$success = $http->HttpBd("POST",$url,$bd,"application/zip",$resp);
if ($success == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

print "Response Status Code: " . $resp->get_StatusCode() . "\r\n";
print "Response body:" . "\r\n";
print $resp->bodyStr() . "\r\n";