Perl

Get the Decoded MIME Body Bytes (BinData)

Demonstrates the Chilkat Mime.GetBodyBd method, which replaces the contents of a BinData with the decoded body bytes of the current part. The only argument is the BinData. Base64 and quoted-printable are decoded; headers and boundaries are not included.

Note: The file paths are relative to the application's current working directory. Absolute paths may also be used. Supply the paths appropriate to your own environment.

Background: This is how you extract a part's actual content as bytes — the decoded payload of an attachment or an image, ready to hash, re-save, or hand to another API. Because it works in raw bytes it is the correct choice for binary parts, where a text decode would be wrong. Note it replaces the BinData contents rather than appending.

Chilkat Perl Downloads

Download Chilkat for Perl

Perl

use chilkat();

$success = 0;

$mime = chilkat::CkMime->new();
$success = $mime->LoadMimeFile("qa_data/message.eml");
if ($success == 0) {
    print $mime->lastErrorText() . "\r\n";
    exit;
}

#  Replace the contents of a BinData with the decoded body bytes of the current part.  Base64 and
#  quoted-printable are decoded; MIME headers and multipart boundaries are not included.
$bd = chilkat::CkBinData->new();
$success = $mime->GetBodyBd($bd);
if ($success == 0) {
    print $mime->lastErrorText() . "\r\n";
    exit;
}

print "Decoded body: " . $bd->get_NumBytes() . " bytes." . "\r\n";