(Tcl) Generate ULID

See more ULID/UUID Examples

Generate a ULID using a specified timestamp or the current system date timestamp.

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

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set dt [new_CkDateTime]

# Set dt to the current system date/time.
CkDateTime_SetFromCurrentSystemTime $dt

# Generate a ULID for the current UTC date/time.
# (i.e. the current UTC UNIX-time)
set utc 1
set ulid [CkDateTime_ulidGenerate $dt $utc]
puts "$ulid"

# example result: 01GRGCH4J88RECEN4D4VK4F629

# Generate a ULID using the local timezone's current time.
set utc 0
set ulid [CkDateTime_ulidGenerate $dt $utc]
puts "$ulid"

# example result: 01GRH14AA82EY9A7S99YYF2QDY

# -----------------------------------------------
# To generate a ULID using a specific UNIX timestamp

# For example, the Unix timestamp for Sun, 05 Feb 2023 14:57:46 GMT
# is 1675609066

# For more information about the Epoch Unix Timestamp, see Epoch Unix Timestamp

# To generate a ULID from a specified date/time, set the CkDateTime and then generate the ULID.
set dt2 [new_CkDateTime]

set utc 1
CkDateTime_SetFromUnixTime $dt2 $utc 1675609066
set ulid [CkDateTime_ulidGenerate $dt2 $utc]
puts "$ulid"

# example result: 01GRH1AJGG3P5K04DJHN3QJCX3

delete_CkDateTime $dt
delete_CkDateTime $dt2