Untitled
public text v1 · immutablesub getUid {
my @existing_uids = @_;
my $uid = int(($max_uid-$min_uid) * rand(1));
foreach my $existing_uid (@existing_uids) {
if ( $uid == $existing_uid ) {
$found = 1;
}
}
if ( $found = 0 ) {
return $uid;
}
return getUid(@existing_uids);
}