perl中srand()与time的函数使用方法介绍(perl脚本)怎么可以错过

随心笔谈2年前发布 编辑
164 0
🌐 经济型:买域名、轻量云服务器、用途:游戏 网站等 《腾讯云》特点:特价机便宜 适合初学者用 点我优惠购买
🚀 拓展型:买域名、轻量云服务器、用途:游戏 网站等 《阿里云》特点:中档服务器便宜 域名备案事多 点我优惠购买
🛡️ 稳定型:买域名、轻量云服务器、用途:游戏 网站等 《西部数码》 特点:比上两家略贵但是稳定性超好事也少 点我优惠购买



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

© 版权声明

相关文章