DDR爱好者之家

perl中srand()与time的函数使用方法介绍
站长资源 2025/1/4 佚名
68 1538
DDR爱好者之家 Design By 杰米

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

DDR爱好者之家 Design By 杰米
广告合作：本站广告合作请联系QQ：858582 申请时备注：广告合作（否则不回）
免责声明：本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除！
DDR爱好者之家 Design By 杰米
ddrfans.com DDR爱好者之家
8,675无损音乐
1,324高清电影
213破解软件
70,141收录资讯

RTX 5090要首发 性能要翻倍！三星展示GDDR7显存

三星在GTC上展示了专为下一代游戏GPU设计的GDDR7内存。

首次推出的GDDR7内存模块密度为16GB，每个模块容量为2GB。其速度预设为32 Gbps（PAM3），但也可以降至28 Gbps，以提高产量和初始阶段的整体性能和成本效益。

据三星表示，GDDR7内存的能效将提高20%，同时工作电压仅为1.1V，低于标准的1.2V。通过采用更新的封装材料和优化的电路设计，使得在高速运行时的发热量降低，GDDR7的热阻比GDDR6降低了70%。

更新日志

友情链接

杰晶网络 DDR爱好者之家 南强小屋 黑松山资源网 白云城资源网
DDR爱好者之家 Design By 杰米