Perl

Set a MIME Body from a File

Demonstrates the Chilkat Mime.SetBodyFromFile method, which reads a local file and sets it as the body, choosing content headers from the filename extension. The only argument is the file path.

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 one-call way to turn a file into a MIME part: Chilkat reads the bytes and infers the Content-Type and transfer encoding from the extension — .jpg becomes image/jpeg with base64, .txt a text type, and so on. It is the natural building block for adding an attachment, usually followed by setting a Content-Disposition and filename.

Chilkat Perl Downloads

Download Chilkat for Perl

Perl

use chilkat();

$success = 0;

#  Demonstrates the Mime.SetBodyFromFile method, which reads a local file and sets it as the body,
#  choosing content headers based on the filename extension.  The only argument is the file path.

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

#  The Content-Type and encoding are set from the ".jpg" extension (image/jpeg, base64).
$success = $mime->SetBodyFromFile("qa_data/photo.jpg");
if ($success == 0) {
    print $mime->lastErrorText() . "\r\n";
    exit;
}

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