[無邊框]
  1. 精讚
  2. 新精讚首頁
  3. 後端程設
  4. PERL
  5. Perl 計算經過的時間
1867

Perl 計算經過的時間

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

分享此文連結 //n.sfs.tw/13010

分享連結 Perl 計算經過的時間@新精讚
(文章歡迎轉載，務必尊重版權註明連結來源)
2019-10-23 16:40:57 最後編修
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

END

你可能感興趣的文章

自行撰寫syslog server建立資訊安全控管中心#4 -- 過濾條件設定 利用PERL將syslog收攏到資料庫的程式，過濾條件設定

[PERL] 13- 變數的視界 變數的使用範圍，什麼是my，什麼是our？

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

Perl 的列舉寫法(map list) 使用列舉的寫法來設定陣列，非常的強大

[PERL] 檢查IP是否在某個網段內：matchcidr 檢查IP是否在某個網段內 matchcidr in perl

[PERL] 05-運算子 #1 PERL的運算子介紹，總共有21種

隨機好文

[HP DL380G7] 生效啟動第3，4片網卡/開啟或關閉內建的網卡 HP DL380G7 預設第3，4片網卡裝完系統後找不到，難道是壞了？要怎麼辦？

UTF-8 BOM (Byte Order Mark) 的問題 在 Michael Kaplan 那看到 Every character has a story #4: U+feff

[Freebsd] 使用 ADSL 撥接上網 Freebsd上要使用 ADSL 撥接上網，該如何設定？

好用的3+2碼郵遞區號查詢系統推薦 網路上找到用地址輸入判斷3+2碼郵遞區號的辨識率不高，除了這個網站…

Smarty安裝 smarty 是著名的樣版引擎，非常的好用，用多了突然發現拿掉smarty反而不會寫php了，以下是安裝過程..

精讚::