perl产生随机数实现代码

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(100) + 1) . " ";
指令：rand
语法：rand($interger)
说明：常和函数srand搭配来取得一随机数，如果没有先宣告stand函数的话，则取出的常数值是一个固定值。这个语法会返回一个介于0和$interger之间的数值，如果$interger省略的话，则会返回一个介于0和1 的数值。

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

运行：

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

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

代码如下:

#!/usr/bin/perl
use strict;
use warnings;

my $data_file = "file1″;
print " Generating …\n";
open FH, "$data_file" or die "Can not open the required file $data_file !";
my @data = <FH>;
close FH;

for (1..100) {
my %hash;
while ((keys %hash) < 1280) {
$hash{int(rand($#data))} = 1;
}
open OUT, ">random$_.txt" or die "Can not open the required file random$_.txt !";
foreach (keys %hash) {
print OUT "$data[$_]";
}
close OUT;
}
print " Complete!\7″;

赞 (0)

相关推荐

  • perl写的一个随机编故事的程序(rand随机函数)

    复制代码 代码如下: #!/bin/perluse strict;  use warnings; #定义变量  my $count;  my $input;  my $number;  my $sentence;  my $story; #定义四个数组  #定义了人物数组  my @nouns=  (     'Dad',     'TV',     'Mom',     'Groucho',     'Rebecca',     'Harpo',     'Robin Hood',     '

  • perl生成特定碱基比例的随机序列的代码

    方法一(不使用模块,by agonyr) 复制代码 代码如下: #!/usr/bin/perl -w use strict; my @seq = ( "A", "T", "C", "G" );my $length = 10000; undef my %hash;$hash{"A"} = int( $length * 0.3 );$hash{"C"} = int( $length * 0.

  • 使用Perl生成随机密码

    可以通过参数控制生成密码中包括的字符种类 #!/usr/bin/perl use strict; use warnings; use Getopt::Std; sub show_help { print "Useage:\n"; print "newp -aAnsl\n"; print "-a\t\t the password contains lower case letters(a-z)\n"; print "-A\t\t the

  • perl 指定长度并生成一个随机的DNA序列的脚本代码

    复制代码 代码如下: #!/bin/perl use strict;  use warnings; #进行定义  my @dna;  my $dna_length;  my $newbase;  my $i=0; print "please input the DNA length\n";  chomp($dna_length=<>); while($i<$dna_length)  {    #从四个碱基中随机选取一个    my(@nucleotides)=qw/A

  • perl产生随机数实现代码

    Perl利用函数rand()和srand()为随机数(更确切的说是"伪随机数")字符串的生成提供了基本的工具.这些函数不是利用加密来提供安 全性的,所以不要利用它们为你金融信息的加密.但是,如果你需要为你的下一个游戏或者动态Web网站的新特性设计一个简单的随机数生成器,那么 rand()和srand()可能就是你所需要的. 函数rand()是真正的随机数生成器,而srand()会设置供rand()使用的随机数种子.函数rand()会返回一个处于0和你所指定的数 值(缺省为1)之间的分数

  • 一个php生成16位随机数的代码(两种方法)

    分享一个php生成16位随机数的代码,php生成随机数的二种方法. 方法1 复制代码 代码如下: <?php $a = mt_rand(10000000,99999999); $b = mt_rand(10000000,99999999); echo $a.$b; 方法2: <?php $a = range(0,9); for($i=0;$i<16;$i++){ $b[] = array_rand($a); } // www.yuju100.com var_dump(join("

  • js 获取范围内的随机数实例代码

    实例如下: function RandomNum(Min,Max){ var Range = Max - Min; var Rand = Math.random(); var num = Min + Math.round(Rand * Range); return num; } RandomNum(10,20); 以上这篇js 获取范围内的随机数实例代码就是小编分享给大家的全部内容了,希望能给大家一个参考,也希望大家多多支持我们.

  • Python随机数函数代码实例解析

    这篇文章主要介绍了Python随机数函数代码实例解析,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值,需要的朋友可以参考下 ''' choice(seq) 从序列的元素中随机选出一个元素 randrange ([start,] stop [,step]) 从指定范围内,在指定步长递增的集合中 获取一个随机数,步长默认为 1 .注:不包含 stop 值 random() 随机生成下一个实数,它在[0,1)范围内. shuffle(lst) 将序列的所有元素随机排序,返回

  • c++实现简单随机数的代码

    c++简单随机数 #include<iostream> #include<ctime> #include<cstdlib> using namespace std; int random(int n) { return (long long)rand()*rand%n; } int main() { srand(unsigned(time(0))); // //求负数随机数,先产生0-2n之间的随机整数,再减去n就得到了-n - n 之间的数 } 实例扩展: 随机数引擎

  • perl Socket编程实例代码

    在networking方面,最基础的是BSD socket编程,但往往perl入门时在这个方面,最头疼的无疑是如何开始,如何Step by step.最好的药方就是Example,一段完整的可以运行(working)的代码,通过实践来感受远比看枯燥的manual来得深刻. 以下给出几段使用Socket及IO::Socket编写的Server/client,他们能实现最简单但是却最基本的任务,包括一个forking/accept的模型.可以直接复制这些代码,然后小加修改即可开发一些小型的tcp/u

  • Perl生成纯HTML代码二维码实例

    Perl生成纯HTML代码二维码实例

    需要依次安装 qrencode.Text-QRCode.HTML-QRCode #!/usr/bin/perl use HTML::QRCode; my $text = 'http://jb51.net/'; my $qrcode = HTML::QRCode->new->plot($text); print <<"HTML"; <html>   <head></head>   <body>   $qrcode  

  • 用C#生成不重复的随机数的代码

    对于随机数,大家都知道,计算机不 可能产生完全随机的数字,所谓的随机数发生器都是通过一定的算法对事先选定的随机种子做复杂的运算,用产生的结果来近似的模拟完全随机数,这种随机数被称 作伪随机数.伪随机数是以相同的概率从一组有限的数字中选取的.所选数字并不具有完全的随机性,但是从实用的角度而言,其随机程度已足够了.伪随机数的选 择是从随机种子开始的,所以为了保证每次得到的伪随机数都足够地"随机",随机种子的选择就显得非常重要.如果随机种子一样,那么同一个随机数发生器产生 的随机数也会一样.

  • ASP.NET 返回随机数实现代码

    复制代码 代码如下: /// <summary> /// 返回随机数 /// </summary> /// <param name="VcodeNum"></param> /// <returns></returns> public string RndNum(int VcodeNum) { string Vchar = "0,1,2,3,4,5,6,7,8,9"; string[] VcArr

  • JS随机数产生代码分享

    我们先来看下本次源码的效果图 大家可以灵活运用,我们把具体JS代码分享给大家: <!doctype html> <html> <head> <meta charset="utf-8"> <title>Document</title> <style> #count{ font-size: 20px; color: green; width: 400px; height: 30px; border: 1px

随机推荐