在perl中srand（）提供供rand()使用的隨機數(shù)種子，rand（）產(chǎn)生隨機數(shù)生成器。
如果在第一次調(diào)用rand()之前沒有調(diào)用srand()，那么系統(tǒng)會為你自動調(diào)用srand()。
使用同種子相同的數(shù)調(diào)用srand()會導致相同的隨機數(shù)序列被生成。
舉例如下：
復制代碼 代碼如下:
srand(26);
$number1=rand(100);
print "$number1\n";
srand(26);
$number2=rand(100);
print "$number2\n";
得到的結(jié)果如下：
F:\&;perl\a.pl
0.3753662109375
0.3753662109375
若果我們把第二個srand（26）去掉，如下：
復制代碼 代碼如下:
srand(26);
$number1=rand(100);
print "$number1\n";
$number2=rand(100);
print "$number2\n";
得到的結(jié)果如下：
F:\&;perl\a.pl
0.3753662109375
76.397705078125
F:\&;
這樣產(chǎn)生的兩個數(shù)值就不一樣了。
附帶一個小程序，利用了一個子程序，隨機輸出了20個隨機數(shù)值，在這里利用了，srand（time|$$)，也就是每次都利給srand賦予新的種子，這樣就保證得到的隨機數(shù)就不一樣，同樣里面time函數(shù)獲取當前的時間，因為時間是不同的，所以種子就不同，我們得到的隨機數(shù)就不同。
復制代碼 代碼如下:
#!/usr/bin/perl
my $dna='AACCGTTAATGGGCATCGATGCTATGCGAGCT';
srand(time|$$);
for (my $i=0;$i20;++$i)
{
print randomposition($dna), " ";
}
print "\n";
exit;
sub randomposition
{
my($string)=@_;
return int rand length $string;
}
我們就time的各個函數(shù)做出說明：
print "time()=".time()."\n";#從1970年到現(xiàn)在的秒數(shù)
print "localtime()=".localtime()."\n";#當前時間
print "gmtime()=".gmtime()."\n";#標準格林威治時間
輸出結(jié)果如下：
F:\&;perl\a.pl
time()=1350309421
localtime()=Mon Oct 15 21:57:01 2012
gmtime()=Mon Oct 15 13:57:01 2012
F:\&;
