perl中srand()与time的函数使用方法介绍
更新时间：2013年03月20日 22:51:30 作者：
这篇文章主要介绍了perl中srand与time函数的使用，需要的朋友可以参考下
在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:\>
相关文章
这篇文章主要介绍了perl中srand与time函数的使用，需要的朋友可以参考下2013-03-03
对于perl操作mysql的步骤，说的比较详细，建议大家好好看看，参考2009-01-01
在Perl中使用Getopt::Long模块来接收用户命令行参数
我们在linux常常用到一个程序需要加入参数,现在了解一下perl中的有关控制参数的函数.getopt.在linux有的参数有二种形式.一种是–help,另一种是-h.也就是-和–的分别.–表示完整参数.-表示简化参数2013-03-03
写了个perl的删除程序...2007-01-01
今天来说说perl，只有一行的perl程序。2008-10-10
perl中创建数组时，可以使用到qw。但考虑到英文名称中间的空格等情况就需要单独处理了2013-03-03
perl常见问题集合之二...2007-03-03
本文和大家重点讨论一下Perl方法的概念，Perl方法定义不提供任何特殊语法，但规定Perl方法的第一个参数为对象或其被引用的包。Perl有两种Perl方法：静态Perl方法和虚Perl方法2013-03-03
这篇文章主要介绍了Perl Sort函数用法总结和使用实例,需要的朋友可以参考下2014-05-05
backtrack3里面/pentest/housekeeping里面有个超囧的偷root密码的东西，冒充su ,perl写的，管理员输入密码的时候还直接回显2008-09-09
最新评论