在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
《魔兽世界》大逃杀！60人新游玩模式《强袭风暴》3月21日上线
暴雪近日发布了《魔兽世界》10.2.6 更新内容，新游玩模式《强袭风暴》即将于3月21 日在亚服上线，届时玩家将前往阿拉希高地展开一场 60 人大逃杀对战。
艾泽拉斯的冒险者已经征服了艾泽拉斯的大地及遥远的彼岸。他们在对抗世界上最致命的敌人时展现出过人的手腕，并且成功阻止终结宇宙等级的威胁。当他们在为即将于《魔兽世界》资料片《地心之战》中来袭的萨拉塔斯势力做战斗准备时，他们还需要在熟悉的阿拉希高地面对一个全新的敌人──那就是彼此。在《巨龙崛起》10.2.6 更新的《强袭风暴》中，玩家将会进入一个全新的海盗主题大逃杀式限时活动，其中包含极高的风险和史诗级的奖励。
《强袭风暴》不是普通的战场，作为一个独立于主游戏之外的活动，玩家可以用大逃杀的风格来体验《魔兽世界》，不分职业、不分装备（除了你在赛局中捡到的），光是技巧和战略的强弱之分就能决定出谁才是能坚持到最后的赢家。本次活动将会开放单人和双人模式，玩家在加入海盗主题的预赛大厅区域前，可以从强袭风暴角色画面新增好友。游玩游戏将可以累计名望轨迹，《巨龙崛起》和《魔兽世界：巫妖王之怒 经典版》的玩家都可以获得奖励。