(Perl) Extract Timestamp from ULID

See more ULID/UUID Examples

Extract the date/time from a ULID.

Important: Chilkat's ULID functionality was introduced in v9.5.0.94.

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

use chilkat();

$ulid = "01GRH14AA82EY9A7S99YYF2QDY";

$dt = chilkat::CkDateTime->new();

# Unix timestamps stored in ULIDs should be UTC...
$bLocal = 0;
# Set the CkDateTime from the timestamp contained in the ULID
$success = $dt->SetFromUlid($bLocal,$ulid);
if ($success == 0) {
    print "ULID was not valid." . "\r\n";
    exit;
}

# You can now get the date/time in any desired format.
# For example:
print "Unix timestamp = " . $dt->GetAsUnixTime($bLocal) . "\r\n";
print "RFC822 = " . $dt->getAsRfc822($bLocal) . "\r\n";
print "Timestamp = " . $dt->getAsTimestamp($bLocal) . "\r\n";

# Sample output:

# Unix timestamp = 1675608861
# RFC822 = Sun, 05 Feb 2023 14:54:21 GMT
# Timestamp = 2023-02-05T14:54:21Z