Perl

Load MIME from BinData

Demonstrates the Chilkat Mime.LoadMimeBd method, which parses complete MIME bytes from a BinData and replaces the current MIME. The only argument is the BinData.

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 safest loader because it works on raw bytes: MIME can carry 8-bit content and even embedded NUL bytes that a text string would mangle, so loading from a BinData preserves the message exactly. Prefer it whenever the input is binary or of uncertain encoding — a downloaded message, a file read as bytes — over the string-based loaders.

Chilkat Perl Downloads

Download Chilkat for Perl

Perl

use chilkat();

$success = 0;

#  Demonstrates the Mime.LoadMimeBd method, which parses complete MIME bytes from a BinData and
#  replaces the current MIME.  The only argument is the BinData.  This is the preferred loader
#  when the MIME may contain arbitrary 8-bit or embedded NUL bytes.

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

$mime = chilkat::CkMime->new();
$success = $mime->LoadMimeBd($bd);
if ($success == 0) {
    print $mime->lastErrorText() . "\r\n";
    exit;
}

print "Content-Type: " . $mime->contentType() . "\r\n";