Perl

Generate UUID

See more ULID/UUID Examples

Generates a version 4 UUID, using either uppercase or lowercase hex. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $sb = Chilkat2::StringBuilder->new;

# Generate a lowercase UUID.
my $lowercase = 1;
$sb->AppendUuid($lowercase);
print $sb->GetAsString(), "\n";

# example: edb1bb24-e9be-4ada-98bd-c2d893f29f55

$lowercase = 0;
$sb->Clear();
$sb->AppendUuid($lowercase);
print $sb->GetAsString(), "\n";

# example: 338EAF28-631E-4303-BE27-A8D80E9191CB