Perl高精度计时器
摘要：
use strict ;use Time::HiRes qw(gettimeofday) ;sub Test{ # sec: seconds # usec: microsecond my ($start_sec, $start_usec) = gettimeofday() ; #======================# # Place your code here!# #======================# my ($end_sec, $end_usec) = gettimeofday() ; # Compute time elipsed my $timeDelta = ($e 阅读全文
posted @ 2011-07-27 17:33 perlman 阅读(1606) 评论(0) 推荐(0) 编辑
