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

Perl

use chilkat();

$success = 0;

#  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.

$mime = chilkat::CkMime->new();

$mime->put_ContentType("text/plain");

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

#  The decoded body is the original text.
$decoded = $mime->getBodyDecoded();
if ($mime->get_LastMethodSuccess() == 0) {
    print $mime->lastErrorText() . "\r\n";
    exit;
}

print $decoded . "\r\n";