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

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $rest = Chilkat2::Rest->new;
my $bTls = 1;
my $bAutoReconnect = 1;
my $success = $rest->Connect('example.com', 443, $bTls, $bAutoReconnect);
if (!$success) {
    print $rest->LastErrorText, "\n";
    exit;
}

# Select the multipart part to build, and set its header fields.
$rest->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.
my $sbBody = Chilkat2::StringBuilder->new;
$sbBody->Append('{ "key": "value" }');
$success = $rest->SetMultipartBodySb($sbBody);
if (!$success) {
    print $rest->LastErrorText, "\n";
    exit;
}

my $responseText = $rest->FullRequestMultipart('POST', '/api/upload');
if (!$rest->LastMethodSuccess) {
    print $rest->LastErrorText, "\n";
    exit;
}

print $responseText, "\n";