(Perl) Get the Email Received Date/Time

Get's the date/time from the topmost Received header. The date/time of when you received an email may be different than the date/time stored in the Date header field, which if truthful, is the date when the email was sent.

The Received header field will look something like this:

Received: from mail.example.com (mail.example.com [99.255.255.99])
 by inbound-smtp.us-west-2.amazonaws.com with SMTP id 72ma443vs1g0o6vqd8erojkpss35s0dt32h323o1
 for admin@chilkatsoft.com;
 Wed, 25 Jul 2018 08:04:23 +0000 (UTC)

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

$email = chilkat::CkEmail->new();

$success = $email->LoadEml("qa_data/eml/p.eml");
if ($success != 1) {
    print $email->lastErrorText() . "\r\n";
    exit;
}

$sb = chilkat::CkStringBuilder->new();
$sb->Append($email->getHeaderField("Received"));

#  Replace semicolons with CRLF's
$numReplaced = $sb->Replace(";","\r\n");

$st = chilkat::CkStringTable->new();
$st->AppendFromSb($sb);

if ($st->get_Count() == 0) {
    print "Should have at least one line.." . "\r\n";
    exit;
}

#  The date/time string is the last line in the string table.
$sb->SetString($st->stringAt($st->get_Count() - 1));
$sb->Trim();

print "Received date/time = " . $sb->getAsString() . "\r\n";