perl产生随机数实现代码(perl中sub)

编辑：rootadmin

Perl利用函数rand()和srand()为随机数（更确切的说是"伪随机数"）字符串的生成提供了基本的工具。这些函数不是利用加密来提供安全性的，所以不要利用它们为你金融信息的加密。但是，如果你需要为你的下一个游戏或者动态Web网站的新特性设计一个简单的随机数生成器，那么 rand()和srand()可能就是你所需要的。

函数rand()是真正的随机数生成器，而srand()会设置供rand()使用的随机数种子。函数rand()会返回一个处于0和你所指定的数值（缺省为1）之间的分数。如果你在第一次调用rand()之前没有调用srand()，那么系统会为你自动调用srand()。

要注意，使用同种子相同的数调用srand()会导致相同的随机数序列被生成。这在有的时候很方便，尤其在游戏编程里，你可能想要重复让随机事件按照精确的相同序列出现。

像下面这样使用rand()：

print "Your lucky number for today is: " . int(rand() + 1) . " ";指令：rand语法：rand($interger)说明：常和函数srand搭配来取得一随机数，如果没有先宣告stand函数的话，则取出的常数值是一个固定值。这个语法会返回一个介于0和$interger之间的数值，如果$interger省略的话，则会返回一个介于0和1 的数值。

示例：srand; #要先宣告srand函数，才能产生随机数的效果$int=rand(); #$int的值会大于0而且小于如果希望产生的乱数是整数的话，就要再加上int #这个函数$int=int(rand()); #$int的值是一个整数，且值在0和9之间————————?$int=rand();$int=int(rand());print "int is $intn";

运行：

int is 9再次运行：int is 7#可见rand取的是随机数字

实例：我有一个行的文本数据，想每次从中随机提取行，提取次，最后生成个行的文本，该如何做？各位请指点。

推荐整理分享perl产生随机数实现代码(perl中sub)，希望有所帮助，仅作参考，欢迎阅读内容。

文章相关热门搜索词:perl统计出现次数,perl random,perl中sub,随机变量perk,perl统计出现次数,perl random,perl统计出现次数,perl 生成随机数,内容如对您有帮助，希望把文章链接给更多的朋友！

两段Perl脚本代码(数组应用与say用法) 一、数组应用#!/usr/binenvperl@zeng=`top-b-n1`;foreach(@zeng){print"$_n";}二、say的用法：自动换行#!/user/binenvperluse5.;#表示使用perl5.的版本。say"HelloWorld!";my@fred=ab

学习perl的unless控制结构例如：unless($fred=~/^([A-Z_]w*$/i){print"Thevalueof$freddoesn'tlooklikeaPerlidentifiername.n";}使用unless意味着，要么条件为真，要么执行某块代码。这就好像使用if控制

有关perl正则表达式的一些杂项 $也能匹配n见Perl语言入门，page,注释/^.*$/能匹配"n"么？能！因为$不仅能匹配行尾，也能匹配n2/^.*$/能匹配"bn"么？能！.能b匹配.n匹配$3/^.*$/能匹配"