[精讚] [會員登入]
58

Perl 計算經過的時間

Perl 計算程式執行經過的時間

此文完整連結 http://n.sfs.tw/13010

複製連結 Perl 計算經過的時間@新精讚
(文章歡迎轉載,務必尊重版權註明連結來源)
2019-01-21 16:57:59 最後編修
2019-01-07 13:12:31 By 張○○
 

程式中常會計算程式所執行的時間間隔,在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

你可能感興趣的文章

[PERL] 自寫 trim, ltrim, rtrim 函數 常用的 perl 函數中沒有trim, ltrim, rtrim這三個函數,那就自己來寫,非常容易

[PERL] 15-進階比對 #2--使用更多修飾子 perl的正規表達式進階比對

[PERL] Regex 字元集(群組) 幾個Perl在regular express會用到的特殊符號notation:字元集

[PERL] 命令列傳入參數 argv Perl 的外部傳參,是$ARGV[0]、$ARGV[1]、$ARGV[2].....

[PERL] 20- 檔案目錄處理 PERL寫入和讀出檔案

[PERL] 簡易檢查網頁記錄檔ip來源統計 利用PERL來檢查網頁記錄檔ip來源統計的簡易程式

[PERL] split 寫法 Perl 將字串分開可以用 split 這個函數,此函數可以用Regex作分隔判斷

自行撰寫syslog server建立資訊安全控管中心#2 -- 架構和作法 利用PERL將syslog收攏到資料庫的程式,架構和作法

[PERL] 16-字串取代和置換 Perl 字串比對及置換

[PERL]] find 和 perl 的結合--大量檔案中文字的取代 利用PERL作大量的文件取代

我有話要說


限制:留言最高字數1000字,超過部分會被截掉。請注意:留言不可帶有網址,會被濾掉。 限制:未登入訪客,每則留言間隔需超過10分鐘,每日最多5則留言。

訪客留言

[無留言]

隨機好文

[Freebsd] 定時測試 ADSL 是否斷線並重連 中華電信 ADSL 雖有固定 ip,可是他卻會不定時「斷線」, 使用以下的 方法可以定時測試是否斷線,以及重新撥接。

為什麼要重造輪子? 什麼輪子?造什麼輪子?我為什麼要重造輪子?

[Win7] 燒錄 iso 檔 在Windows7 中內建燒錄程式,可以直接把檔案拉到光碟機裡,再執行燒錄。

世紀帝國征服者新版本--被遺忘的帝國 世紀帝國征服者新版本--被遺忘的帝國 世紀二代的征服者是精典遊戲中的精典,aofe更好玩...

魔球中小女孩唱的歌 The show 魔球中小女孩唱的歌 The show