perl按比例产生随机数

大家好我是弱鸡cc，今天给大家介绍一个弱弱的perl，可以按照自己的喜好产生随机数，这个脚本可以帮助大家控制产生的随机数序列中的每个随机数的个数，具体请看下面注释，例子：

如果要产生500个只有0,1的随机数，每个随机数产生250次，可以改变数字的大小改变总的产生的随机数的个数和每个随机数的产生个数

 

#!/usr/bin/perl
use strict;
use warnings;

my @random;
my ($random1,$random2,$rando)=(0,0,0);

# 可以在这里定义一个N，表示产生的个数，以及定义n1和n2表示每个随机数要产生的个数

print("random number:\n");
srand(time());
while(scalar(@random)<500){
$rando=int(rand(2));
print($rando);
if($rando==0){
if($random1<250){
$random1++;
push(@random,$rando);
}
}else{
if($random2<250){
$random2++;
push(@random,$rando);
}
}
}

print ("\n\nrandom number: ".@random);
print ("\n\nrandom number size: ".scalar(@random));
print ("\n\nrandom number of 1 and 0: ".$random1."\\".$random2);