Perl

Serialize MIME to BinData

Demonstrates the Chilkat Mime.GetMimeBd method, which serializes the complete MIME entity and appends its bytes to a BinData. The only argument is the BinData; existing bytes are preserved.

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 the byte-exact serializer — the right choice when the MIME carries binary content such as an image or an 8-bit-encoded part, where routing the output through a text string could corrupt it. The result is a faithful byte stream you can write to a file, transmit, or hash. It pairs with LoadMimeBd for lossless round-tripping of binary MIME.

Chilkat Perl Downloads

Download Chilkat for Perl

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# Demonstrates the Mime.GetMimeBd method, which serializes the complete MIME entity and appends
# its bytes to a BinData.  The only argument is the BinData.  Use this when arbitrary binary body
# bytes must not pass through a text string.

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

my $success = $mime->SetBodyFromFile('qa_data/photo.jpg');
if (!$success) {
    print $mime->LastErrorText, "\n";
    exit;
}

# Append the serialized MIME bytes to a BinData.  Existing bytes are preserved.
my $bd = Chilkat2::BinData->new;
$success = $mime->GetMimeBd($bd);
if (!$success) {
    print $mime->LastErrorText, "\n";
    exit;
}

print 'Serialized ', $bd->NumBytes, " bytes.\n";