文章摘要
这篇文章介绍了 Perl 中的 `srand()` 和 `rand()` 函数，用于生成随机数。`srand()` 为 `rand()` 提供随机数种子，而 `rand()` 生成随机数。如果没有调用 `srand()`，系统会自动调用一次。使用相同种子多次调用 `srand()` 会生成相同的随机数序列。文章通过代码示例展示了这一点，例如：
```perl
srand(26);
$number1 = rand(100);
print "$number1n";
srand(26);
$number2 = rand(100);
print "$number2n";
```
第一次运行后，输出的两个随机数相同；第二次运行（去掉第二次 `srand(26)`）后，输出的两个数不同。
文章还提到，使用 `time()``localtime()``gmtime()` 等函数作为种子可以确保生成的随机数不同，因为这些函数返回的值会随时间变化。例如：
```perl
srand(time|$$);
```
文章还解释了 `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:\>
© 版权声明
文章版权归作者所有，未经允许请勿转载。
