Perl

Get a MIME Header Field Attribute

Demonstrates the Chilkat Mime.GetHeaderFieldAttribute method, which returns an attribute value parsed from a header field. The first argument is the header field name and the second is the attribute name. Surrounding quotes are removed.

Note: The file path is relative to the application's current working directory. Absolute paths may also be used. Supply the path to your own file.

Background: Many MIME headers pack extra parameters after the main value — Content-Type: multipart/mixed; boundary="xyz" or Content-Disposition: attachment; filename="report.pdf". This method extracts one of those named attributes directly, saving you from parsing the header string yourself and correctly stripping quotes and handling encoded values.

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;
}

# Return an attribute value parsed from a header field.  The 1st argument is the header field
# name and the 2nd is the attribute name.  For example, the "boundary" attribute of the
# Content-Type header, or the "filename" attribute of Content-Disposition.
my $boundary = $mime->GetHeaderFieldAttribute('Content-Type', 'boundary');
if (!$mime->LastMethodSuccess) {
    print $mime->LastErrorText, "\n";
    exit;
}

print 'Content-Type boundary: ', $boundary, "\n";