Perl

Set a MIME Body from Transfer-Encoded Text

Demonstrates the Chilkat Mime.SetBodyFromEncoded method, which sets the body from already transfer-encoded text. The first argument is the encoding (base64 or quoted-printable) and the second is the encoded text.

Background: Sometimes you already hold content in its encoded form — a Base64 string from a database or another API — and re-decoding just to have Chilkat re-encode it is wasteful. This method stores the encoded text as-is and records the matching transfer encoding, so the body is correct without a needless round trip. Only the standard reversible encodings, Base64 and quoted-printable, are accepted.

Chilkat Perl Downloads

Download Chilkat for Perl

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# Demonstrates the Mime.SetBodyFromEncoded method, which sets the body from already transfer-
# encoded text.  The 1st argument is the encoding ("base64" or "quoted-printable") and the 2nd is
# the encoded text.

my $mime = Chilkat2::Mime->new;

$mime->ContentType('text/plain');

# The body is provided already Base64-encoded; Chilkat stores it without re-encoding.
my $base64Body = 'SGVsbG8sIHRoaXMgaXMgdGhlIGJvZHku';
my $success = $mime->SetBodyFromEncoded('base64', $base64Body);
if (!$success) {
    print $mime->LastErrorText, "\n";
    exit;
}

# The decoded body is the original text.
my $decoded = $mime->GetBodyDecoded();
if (!$mime->LastMethodSuccess) {
    print $mime->LastErrorText, "\n";
    exit;
}

print $decoded, "\n";