Time::HiResによるcgiの高精度応答時間測定

apacheのCustomLogでは「%T」による応答時間を秒単位で表示することができますが、更に細かい単位で表示したい場合、Time::HiRes を使用します。

次のサンプルは、sleep(1秒)を含めていますが、Time::HiRes の time() でマイクロ秒程度で時間を測定できることが分かると思います。

#!/usr/local/bin/perl

use strict;
use warnings;
use Time::HiRes qw ( time alarm sleep );

warn time(),"\n";
sleep(1);
warn time(),"\n";

bash-3.2$ ./foo.pl 
1220658852.78125
1220658853.78127
bash-3.2$