perl生成一组1-n随机连续整数程序

river

在做随机的时候，经常会用到产生一组随机的连续整数，本程序是产生1-num个不重复连续整数
use strict;
use warnings;
my($i,$j,$num,$rand,$position1,%array1,$id2,$rs2,$allel,@array);
$num=1000;                  ####输入要产生连续整数的个数
$i=0;
$rand=int(rand($num)+1);
$array[$i]=$rand;
$array1{$rand} += 1;
  print "$array[$i]\n";
   while($i<$num-1){
  $rand=int(rand($num)+1);
  if(exists $array1{$rand}){
     next;
   }else{
     $array1{$rand} += 1;
     $i=$i+1;
     $array[$i]=$rand;
       print "$array[$i]\n";
     }
   }