Perl

Set a Multipart Part Body from a StringBuilder

Demonstrates Rest.SetMultipartBodySb, which sets the text body of the selected multipart part from a StringBuilder.

Background. A multipart request is assembled part by part: the part selector chooses the part being built, header fields describe it, and a SetMultipartBody method supplies its content. The request is then sent with a multipart send or full-request method.

Chilkat Perl Downloads

Download Chilkat for Perl

Perl

use chilkat();

$success = 0;

$rest = chilkat::CkRest->new();
$bTls = 1;
$bAutoReconnect = 1;
$success = $rest->Connect("example.com",443,$bTls,$bAutoReconnect);
if ($success == 0) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

#  Select the multipart part to build, and set its header fields.
$rest->put_PartSelector("1");
$rest->AddHeader("Content-Disposition","form-data; name=\"field1\"");
$rest->AddHeader("Content-Type","application/json");

#  Set the text body of the selected part from a StringBuilder.
$sbBody = chilkat::CkStringBuilder->new();
$sbBody->Append("{ \"key\": \"value\" }");
$success = $rest->SetMultipartBodySb($sbBody);
if ($success == 0) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

$responseText = $rest->fullRequestMultipart("POST","/api/upload");
if ($rest->get_LastMethodSuccess() == 0) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

print $responseText . "\r\n";