Perlで単純にミリ秒を求めることは可能でしょうか？

質問

Perlでミリ秒単位で計測したいのですが、Benchmark関数は $sa = timestr(timediff($b,$a));
とした結果が0 wallclock secs ( 0.41 usr + 0.05 sys = 0.45 CPUと表示されて、これが何を意味するのかわかりません。

単純にミリ秒を求めることは可能でしょうか？

回答No.2

leaz024 · ベストアンサー

そのような用途には Time::HiRes モジュールを使います。

use Time::HiRes qw/gettimeofday tv_interval/;
$start = [gettimeofday];
* 時間を計測したい処理 *
$end = [gettimeofday];
printf "%.6f 秒", tv_interval($start, $end);

参考URL：

http://perldoc.jp/docs/modules/Time-HiRes-1.55/HiRes.pod

回答No.1

agharta

select関数を使ってみてはいかがでしょうか。
これは、システムコールなのでミリ秒まで計測可能かと思います