Re: [問題] Time::HiRes的問題...
※ 引述《johnion (阜可人言)》之銘言：
: 先附上一小段範例程式碼
: 引用於http://perldoc.perl.org/Time/HiRes.html#EXAMPLES
: clock example範例
: use Time::HiRes qw( clock );
: my $clock0 = clock();
: ... # Do something.
: my $clock1 = clock();
: my $clockd = $clock1 - $clock0;
: 小弟發現在Time::HiRes裡面的clock()
: 好像不會去計算system call所執行的時間...
: EX:
: my $clock0 = clock();
: system("perl abc.pl"); #abc.pl用for做999999次迴圈
: my $clock1 = clock();
: my $clockd = $clock1 - $clock0;
: print $clockd出來的時間會是 0
: 請問各位大大，
: 是我用法錯誤？
: 還是這個modules本身就不會去算system的時間？
: 另外還有沒有其他方法可以計算程式執行的時間？ ues Config?
: 麻煩各位前輩幫小弟作個解答，謝謝！
可以使用 gettimeofday、tv_interval 看看。
#!/usr/bin/perl -w
use Time::HiRes qw(gettimeofday tv_interval);
my $t0 = [gettimeofday];
system("sleep", "2");
my $elapsed = tv_interval ( $t0 );
print $elapsed, "\n";
--------------------------------------------------
# time perl t.pl
2.003056
real 0m2.028s
user 0m0.008s
sys 0m0.012s
參考文件
http://search.cpan.org/~jhi/Time-HiRes-1.9715/HiRes.pm
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.114.64.130
推
08/27 15:31, , 1F
08/27 15:31, 1F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 2 篇)：
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
