version 1.298, 2004/05/03 17:51:11
|
version 1.299, 2004/05/04 19:58:57
|
Line 1046 ENDPART
|
Line 1046 ENDPART
|
@allcodes=split(',',$result{$old_name}); |
@allcodes=split(',',$result{$old_name}); |
} else { |
} else { |
my %allcodes; |
my %allcodes; |
|
srand($seed); |
for (my $i=0;$i<$num_todo;$i++) { |
for (my $i=0;$i<$num_todo;$i++) { |
$moreenv{'CODE'}=&get_CODE(\%allcodes,$i,$seed,'6'); |
$moreenv{'CODE'}=&get_CODE(\%allcodes,$i,$seed,'6'); |
} |
} |
Line 1247 sub num_to_letters {
|
Line 1248 sub num_to_letters {
|
sub get_CODE { |
sub get_CODE { |
my ($all_codes,$num,$seed,$size)=@_; |
my ($all_codes,$num,$seed,$size)=@_; |
my $max='1'.'0'x$size; |
my $max='1'.'0'x$size; |
srand($seed); |
|
my $newcode; |
my $newcode; |
while(1) { |
while(1) { |
$newcode=sprintf("%06d",int(rand($max))); |
$newcode=sprintf("%06d",int(rand($max))); |