在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:\>
srand,time
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
更新日志
- 雨林唱片《赏》新曲+精选集SACD版[ISO][2.3G]
- 罗大佑与OK男女合唱团.1995-再会吧!素兰【音乐工厂】【WAV+CUE】
- 草蜢.1993-宝贝对不起(国)【宝丽金】【WAV+CUE】
- 杨培安.2009-抒·情(EP)【擎天娱乐】【WAV+CUE】
- 周慧敏《EndlessDream》[WAV+CUE]
- 彭芳《纯色角3》2007[WAV+CUE]
- 江志丰2008-今生为你[豪记][WAV+CUE]
- 罗大佑1994《恋曲2000》音乐工厂[WAV+CUE][1G]
- 群星《一首歌一个故事》赵英俊某些作品重唱企划[FLAC分轨][1G]
- 群星《网易云英文歌曲播放量TOP100》[MP3][1G]
- 方大同.2024-梦想家TheDreamer【赋音乐】【FLAC分轨】
- 李慧珍.2007-爱死了【华谊兄弟】【WAV+CUE】
- 王大文.2019-国际太空站【环球】【FLAC分轨】
- 群星《2022超好听的十倍音质网络歌曲(163)》U盘音乐[WAV分轨][1.1G]
- 童丽《啼笑姻缘》头版限量编号24K金碟[低速原抓WAV+CUE][1.1G]