Perl Requires Chilkat v9.5.0.94+

Validate a ULID

See more ULID/UUID Examples

Checks to see if a ULID is valid. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

# A ULID must be exactly 26 chars in length,
# and is composed of the following chars: 0123456789ABCDEFGHJKMNPQRSTVWXYZ
# Note: The ULID alphabet excludes the letters I, L, O, and U

# Here's a valid ULID
my $ulid = '01GRGCH4J88RECEN4D4VK4F629';
my $valid = $dt->UlidValidate($ulid);
print 'valid: ', ($valid ? 1 : 0), "\n";

# Here's an invalid ULID
$ulid = '71GRGxx4Jr8RECEN4D4VK4F62!';
$valid = $dt->UlidValidate($ulid);
print 'valid: ', ($valid ? 1 : 0), "\n";