(Perl) Get Email Date/Time

Demonstrates getting the email "Date" header field in a CkDateTime object.

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

use chilkat();

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

# Load a .eml file into the email object.
$success = $email->LoadEml("/home/users/chilkat/eml/myEml.eml");

# dtTime is a CkDateTime
$dtTime = $email->GetDt();
if ($email->get_LastMethodSuccess() == 0) {
    print "Email has no Date header field." . "\r\n";
    exit;
}

# Once we have the CkDateTime object, we can get the date/time in all sorts of formats:

# Get as a RFC822 GMT string:
$bLocalTime = 0;
print $dtTime->getAsRfc822($bLocalTime) . "\r\n";

# Get as an RFC822 string in the local timezone.
# (remember, the daylight savings that existed at the given time in the past is applied)
$bLocalTime = 1;
print $dtTime->getAsRfc822($bLocalTime) . "\r\n";

# Get as a 32-bit UNIX time (local or GMT..)
# The Unix time is number of seconds since the Epoch, 1970-01-01 00:00:00 +0000 (UTC). 
$unixTime = $dtTime->GetAsUnixTime($bLocalTime);
print "Unix time: " . $unixTime . "\r\n";

# One can also get the as a "DtObj" object for accessing the individual
# parts of the date/time, such as month, day, year, hour, minute, etc.
# The DtObj can be obtained in the GMT or local timezone:
# dtObj is a DtObj
$dtObj = $dtTime->GetDtObj($bLocalTime);
if ($dtTime->get_LastMethodSuccess() == 0) {
    print "This should never really happen!" . "\r\n";
    exit;
}

print $dtObj->get_Day() . "-" . $dtObj->get_Month() . "-" . $dtObj->get_Year() . " " . $dtObj->get_Hour()
     . ":" . $dtObj->get_Minute() . ":" . $dtObj->get_Second() . "\r\n";