Perl Requires Chilkat v9.5.0.94+

Extract Timestamp from ULID

See more ULID/UUID Examples

Extract the date/time from a ULID. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $ulid = '01GRH14AA82EY9A7S99YYF2QDY';

my $dt = Chilkat2::DateTime->new;

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

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

# Sample output:

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