Data::TUID - A smaller and more communicable pseudo-UUID
Version 0.011
use Data::TUID
my $tuid = tuid # Generate a TUID of (default) length 8
$tuid = tuid length => 4 # Generate a TUID of length 4
$tuid = Data::TUID->tuid # Generate a TUID with the default length
$tuid = tuid uuid => '1bf4d967-9e4c-4414-9be0-26f31c16fb53' # Generate a TUID based off of the given UUID
A sample run (length 4):
rrry
ggf5
m1qb
xczx
pv9y
A sample run (length 8):
5xcfw8nj
2q255fyg
pn3xns4k
1xcamd3y
eczzca9c
A sample run (no length limit):
2kdk8wzjmfapj28cvexj6qndq7
2tmzr1f3k46tr813dtrxx2vhkqkd
1x3608c39mb1n726dhmxedjy72d
pre6tg2dm37zbw9amxg2c8bghn
3ys0kw21rmtpf54gsmnd28r99pj
Data::TUID is a tool for creating small, communicable pseudo-unique identifiers. Essentially it will take a UUID, pass the result through Encode::Base32::Crockford, and resize accordingly (via substr)
Although I've tried to sample the UUID evenly, this technique does not give any guarantee on uniqueness. Caveat emptor.
Finally, the result is more communicable (and smaller) due to the Crockford base-32 encoding. The Crockford technique uses:
A case-insensitive mapping
1 in place of '1','I', 'i', and 'L'
0 in place of '0', 'O', and 'o'
So, given a TUID (say something a user typed in for a URL), you can translate ambiguous characters (1, I, i, L, 0, 0, and o) into to 1 and 0.
The arguments are:
uuid The UUID to use as a basis for the TUID. If none is given, one will be generated for you
length The length of the TUID returned. By default 8. A length of -1 will result in the whole
UUID being used, and a variable length TUID being returned (somewhere between 25 to 28)
http://www.crockford.com/wrmg/base32.html
Robert Krimen, <rkrimen at cpan.org>
Please report any bugs or feature requests to bug-data-tuid at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Data-TUID. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.
You can find documentation for this module with the perldoc command.
perldoc Data::TUID
You can also look for information at:
Copyright 2009 Robert Krimen, all rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
