perl的srand（）函数使用，time的各个函数的使用

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函数获取当前的时间，由于时间是不一样的，因此种子就不一样，咱们获得的随机数就不一样。

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:\>