Perl

Get a Header Field by Name

Demonstrates the Chilkat Email.GetHeaderField method, which returns the value of a header field by name. Header-field names are case-insensitive, so X-Priority and x-priority refer to the same field. This example reads several headers by name.

Background: Looking up a header by name is the quickest way to read a known field like Subject or a custom X- header. One caveat: some header names (such as Received) can legitimately appear more than once. When a field may repeat and you need every occurrence, enumerate by index with GetHeaderFieldName and GetHeaderFieldValue instead of looking up by name.

Chilkat Perl Downloads

Download Chilkat for Perl

Perl

use chilkat();

#  Demonstrates the GetHeaderField method, which returns the value of a header field by
#  name.  Header-field names are case-insensitive.

$email = chilkat::CkEmail->new();
$email->put_Subject("Quarterly report");
$email->put_From('alice@example.com');
$email->AddHeaderField("X-Priority","1");

#  Get header field values by name.
print "Subject = " . $email->getHeaderField("Subject") . "\r\n";
print "From = " . $email->getHeaderField("From") . "\r\n";
print "X-Priority = " . $email->getHeaderField("x-priority") . "\r\n";