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

时间:2021-05-22

在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:\>

声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。

相关文章