perl中srand()與time的函數(shù)使用方法介紹
在perl中srand（）提供供rand()使用的隨機(jī)數(shù)種子，rand（）產(chǎn)生隨機(jī)數(shù)生成器。
如果在第一次調(diào)用rand()之前沒有調(diào)用srand()，那么系統(tǒng)會(huì)為你自動(dòng)調(diào)用srand()。
使用同種子相同的數(shù)調(diào)用srand()會(huì)導(dǎo)致相同的隨機(jī)數(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
若果我們把第二個(gè)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)生的兩個(gè)數(shù)值就不一樣了。
附帶一個(gè)小程序，利用了一個(gè)子程序，隨機(jī)輸出了20個(gè)隨機(jī)數(shù)值，在這里利用了，srand（time|$$)，也就是每次都利給srand賦予新的種子，這樣就保證得到的隨機(jī)數(shù)就不一樣，同樣里面time函數(shù)獲取當(dāng)前的時(shí)間，因?yàn)闀r(shí)間是不同的，所以種子就不同，我們得到的隨機(jī)數(shù)就不同。
#!/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的各個(gè)函數(shù)做出說(shuō)明：
print "time()=".time()."\n";#從1970年到現(xiàn)在的秒數(shù)
print "localtime()=".localtime()."\n";#當(dāng)前時(shí)間
print "gmtime()=".gmtime()."\n";#標(biāo)準(zhǔn)格林威治時(shí)間
輸出結(jié)果如下：
F:\>perl\a.pl
time()=1350309421
localtime()=Mon Oct 15 21:57:01 2012
gmtime()=Mon Oct 15 13:57:01 2012
F:\>
相關(guān)文章
Perl Sort函數(shù)用法總結(jié)和使用實(shí)例
這篇文章主要介紹了Perl Sort函數(shù)用法總結(jié)和使用實(shí)例,需要的朋友可以參考下2014-05-05
backtrack3里面/pentest/housekeeping里面有個(gè)超囧的偷root密碼的東西，冒充su ,perl寫的，管理員輸入密碼的時(shí)候還直接回顯2008-09-09
使用腳本實(shí)現(xiàn)自動(dòng)清除指定文件夾下丟失鏈接文件的符號(hào)鏈接
這篇文章主要介紹了使用腳本實(shí)現(xiàn)自動(dòng)清除指定文件夾下丟失鏈接文件的符號(hào)鏈接,本文給大家介紹的非常詳細(xì)，具有一定的參考借鑒價(jià)值，需要的朋友可以參考下2020-02-02
fdupe 是一個(gè)很小的 Perl 腳本，用來(lái)檢索指定目錄并找出其中重復(fù)的文件，該腳本是通過(guò)文件內(nèi)容來(lái)識(shí)別是否重復(fù)文件，而非文件名。fdupe 無(wú)需其他 Perl 腳本支持，運(yùn)行速度非?？?/div> 2013-03-03
Perl語(yǔ)言有很多值得學(xué)習(xí)的地方，你對(duì)Perl語(yǔ)法中的變量是否熟悉，Perl變量分為標(biāo)量變量,數(shù)組變量,聯(lián)系關(guān)系數(shù)組變量3類2013-03-03
Perl Mysql數(shù)據(jù)庫(kù)操作實(shí)現(xiàn)代碼
對(duì)于perl操作mysql的步驟，說(shuō)的比較詳細(xì)，建議大家好好看看，參考2009-01-01
這篇文章主要介紹了Perl中的特殊內(nèi)置變量詳細(xì)介紹,需要的朋友可以參考下2014-05-05
Perl里可以調(diào)用Shell命令，有時(shí)需要根據(jù)shell命令的返回結(jié)果做進(jìn)一步的工作，如何獲得shell的執(zhí)行結(jié)果？2008-12-12
PERL里正則表達(dá)式的簡(jiǎn)介，適合喜歡學(xué)習(xí)perl正則的朋友。2009-03-03
perl如何避免腳本在windows中閃一下就關(guān)閉
寫好了perl程序，運(yùn)行后，準(zhǔn)備等待結(jié)果輸出時(shí)，結(jié)果雙擊后，看到屏幕閃了一下，然后什么都沒有了，根本沒有機(jī)會(huì)然你看到輸出的結(jié)果2013-03-03最新評(píng)論