本文和大家重点讨论一下Perl随机数的概念,如果你需要为你的下一个游戏或者动态Web网站的新特性设计一个简单的Perl随机数生成器,那么rand()和srand()可能就是你所需要的。
如何产生Perl随机数
Perl利用函数rand()和srand()为Perl随机数(更确切的说是“伪Perl随机数”)字符串的生成提供了基本的工具。这些函数不是利用加密来提供安全性的,所以不要利用它们为你金融信息的加密。但是,如果你需要为你的下一个游戏或者动态Web网站的新特性设计一个简单的Perl随机数生成器,那么rand()和srand()可能就是你所需要的。
函数rand()是真正的Perl随机数生成器,而srand()会设置供rand()使用的Perl随机数种子。函数rand()会返回一个处于0和你所指定的数值(缺省为1)之间的分数。如果你在第一次调用rand()之前没有调用srand(),那么系统会为你自动调用srand()。
要注意,使用同种子相同的数调用srand()会导致相同的Perl随机数序列被生成。这在有的时候很方便,尤其在游戏编程里,你可能想要重复让随机事件按照精确的相同序列出现。
像下面这样使用rand():
print"Yourluckynumberfortodayis:".int(rand(100)+1)."";
Perl随机数指令:rand
语法:rand($interger)
说明:常和函数srand搭配来取得一Perl随机数,如果没有先宣告stand函数的话,则取出的常数值是一个固定值。这个语法会返回一个介于0和$interger之间的数值,如果$interger省略的话,则会返回一个介于0和1的数值。
示例:
srand;#要先宣告srand函数,才能产生Perl随机数的效果
$int=rand(10);#$int的值会大于0而且小于10如果希望产生的乱数是整数的话,就要再加上int#这个函数
$int=int(rand(10));#$int的值是一个整数,且值在0和9之间
--------------------------
$int=rand(10);
$int=int(rand(10));
print"intis$int\n";
运行:
intis9
再次运行:
intis7
#可见rand取的是Perl随机数字
【编辑推荐】