专家答疑 如何产生Perl随机数

本文和大家重点讨论一下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)."";