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

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $mime = Chilkat2::Mime->new;
my $success = $mime->LoadMimeFile('qa_data/message.eml');
if (!$success) {
    print $mime->LastErrorText, "\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.
my $bd = Chilkat2::BinData->new;
$success = $mime->GetBodyBd($bd);
if (!$success) {
    print $mime->LastErrorText, "\n";
    exit;
}

print 'Decoded body: ', $bd->NumBytes, " bytes.\n";