程式中常會計算程式所執行的時間間隔,在Perl中有很好用的模組:Time::Elapse
use Time::Elapse;
模組的安裝
# cpan -i Time:Elapse
* 更多模組的安裝可參考[PERL] 19-模組的安裝和維護
計時開始
Time::Elapse->lapse(my $now);
…程式碼部分
經過時間
隨時讀取 $now的值就是經過的時間。
print "Elapsed time=". $now;
超簡單吧
use Time::Elapse; Time::Elapse->lapse(my $now); # $now=0; # .. 你的程式碼.. print "Elapsed time=". $now;
原文 2009-10-21 15:56:46