国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > Perl > 正文

perl中srand()與time的函數(shù)使用方法介紹

2020-10-31 15:17:23
字體:
供稿:網(wǎng)友

在perl中srand()提供供rand()使用的隨機數(shù)種子,rand()產(chǎn)生隨機數(shù)生成器。
如果在第一次調(diào)用rand()之前沒有調(diào)用srand(),那么系統(tǒng)會為你自動調(diào)用srand()。
使用同種子相同的數(shù)調(diào)用srand()會導(dǎo)致相同的隨機數(shù)序列被生成。

舉例如下:

復(fù)制代碼 代碼如下:

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)去掉,如下:

復(fù)制代碼 代碼如下:

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ù)獲取當(dāng)前的時間,因為時間是不同的,所以種子就不同,我們得到的隨機數(shù)就不同。

復(fù)制代碼 代碼如下:

#!/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的各個函數(shù)做出說明:
print "time()=".time()."/n";#從1970年到現(xiàn)在的秒數(shù) 
print "localtime()=".localtime()."/n";#當(dāng)前時間 
print "gmtime()=".gmtime()."/n";#標(biāo)準(zhǔ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:/>

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板: 电白县| 和平区| 苏州市| 万载县| 新宁县| 西畴县| 曲阜市| 武宣县| 文昌市| 元阳县| 库尔勒市| 沧源| 永寿县| 社会| 江阴市| 邵武市| 昭通市| 长沙市| 枞阳县| 哈尔滨市| 沭阳县| 绥江县| 博客| 霞浦县| 太仆寺旗| 枣强县| 延津县| 福州市| 吉安市| 新竹市| 孟连| 泗阳县| 临西县| 北票市| 葫芦岛市| 乐亭县| 济阳县| 云阳县| 肇源县| 普宁市| 潼关县|