Perl

Set a Multipart Part Body from a String

Demonstrates Rest.SetMultipartBodyString, which sets the text body of the currently selected multipart part.

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', 'text/plain');

# Set the text body of the selected multipart part.
$success = $rest->SetMultipartBodyString('value1');
if (!$success) {
    print $rest->LastErrorText, "\n";
    exit;
}

# Send the multipart request using the configured part(s).
my $responseText = $rest->FullRequestMultipart('POST', '/api/upload');
if (!$rest->LastMethodSuccess) {
    print $rest->LastErrorText, "\n";
    exit;
}

print $responseText, "\n";