http://qs1969.pair.com?node_id=425729


in reply to Perl : How to Create Unique String/Number?

Might not be exactly what you're looking for, but maybe a place to start.
#!/usr/bin/perl -w $len = 11 + int(rand(10)); $r .= chr(48 + rand(74)) for (1..$len); $r =~ s/\W//g; print "$r\n";


-- All code is 100% tested and functional unless otherwise noted.