I have a perl script that needs a (UNIQUE for a predictable period) 7
character ID (number.. but "numeric" not necessary).
I felt that this would do it for me:
#########
$filtel = int(rand(999999));
$filtel ="000000".$filtel.$$;
while(length($filtel) > 7) {
$filtel = substr($filtel,1);
}
return $filtel;
##########
As it works out... Novell's task-numbers are already like 9 digits.. but
they REPEAT (50 times in 100 calls ;o)). It looks like $$ is a time
variable.. possibly a seconds counter.
Does anyone have a "bulletproof" unique id generator that they would like to
share??
Charles Maier
CDM Consulting Services
http://www.cdmcon.com
(610) 942-2726
_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
