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

Perl

use chilkat();

$success = 0;

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

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

$success = $mime->SetBodyFromFile("qa_data/photo.jpg");
if ($success == 0) {
    print $mime->lastErrorText() . "\r\n";
    exit;
}

#  Append the serialized MIME bytes to a BinData.  Existing bytes are preserved.
$bd = chilkat::CkBinData->new();
$success = $mime->GetMimeBd($bd);
if ($success == 0) {
    print $mime->lastErrorText() . "\r\n";
    exit;
}

print "Serialized " . $bd->get_NumBytes() . " bytes." . "\r\n";