perl中srand()与time的函数使用方法介绍

2020-10-31 15:17:23

字体：大中小

来源：转载

供稿：网友

在perl中srand（）提供供rand()使用的随机数种子，rand（）产生随机数生成器。
如果在第一次调用rand()之前没有调用srand()，那么系统会为你自动调用srand()。
使用同种子相同的数调用srand()会导致相同的随机数序列被生成。

举例如下：

复制代码代码如下:

srand(26);  
$number1=rand(100);  
print "$number1/n";  
srand(26);  
$number2=rand(100);  
print "$number2/n"; 

得到的结果如下：
F:/>perl/a.pl
0.3753662109375
0.3753662109375

若果我们把第二个srand（26）去掉，如下：

复制代码代码如下:

srand(26);  
$number1=rand(100);  
print "$number1/n";  
$number2=rand(100);  
print "$number2/n"; 

得到的结果如下：
F:/>perl/a.pl
0.3753662109375
76.397705078125

F:/>

这样产生的两个数值就不一样了。

附带一个小程序，利用了一个子程序，随机输出了20个随机数值，在这里利用了，srand（time|$$)，也就是每次都利给srand赋予新的种子，这样就保证得到的随机数就不一样，同样里面time函数获取当前的时间，因为时间是不同的，所以种子就不同，我们得到的随机数就不同。

复制代码代码如下:

#!/usr/bin/perl
my $dna='AACCGTTAATGGGCATCGATGCTATGCGAGCT';  
srand(time|$$);  
for (my $i=0;$i<20;++$i)  
{  
    print randomposition($dna), " ";  
}  
print "/n";  
exit;  

sub randomposition  
{  
   my($string)=@_;  
   return int rand length $string;  
} 

我们就time的各个函数做出说明：
print "time()=".time()."/n";#从1970年到现在的秒数
print "localtime()=".localtime()."/n";#当前时间
print "gmtime()=".gmtime()."/n";#标准格林威治时间

输出结果如下：
F:/>perl/a.pl
time()=1350309421
localtime()=Mon Oct 15 21:57:01 2012
gmtime()=Mon Oct 15 13:57:01 2012

F:/>

上一篇：用perl实现生物突变的随机模拟程序代码

下一篇：Perl文件句柄详解