perl生成不重复随机数

#!/usr/bin/perl -w 
use strict; ##语法检查

open (OUT, ">>random_num.txt");
srand();  #产生随机数种子，保证每次运行本脚本，输出不同随机数

my $p=0; 
my %tag; #记录随机数是否出现过
while (1){
my $num= int (rand(200)); 
next if(defined($tag{$num})); #判断随机数是否出现过
$tag{$num}=1;
print OUT "$num\n";
        $p++;
last if($p==200);
}
close OUT; #关闭文件

via https://hi.baidu.com/flydoooog/blog/item/544fe7f5d64202ccf2d38596.html