1秒未満の取得

　秒単位の時間の取得であればtimeで良いですが、1秒未満の時間を取得する場合にはTime::HiResモジュールを使います。
　Time::HiResモジュールのgettimeofday()を使うと、返値の2番目でマイクロ秒が帰ってきます(マイクロ秒は1,000,000分の1秒)。

use Time::HiRes qw(gettimeofday);

my ($sec, $microsec) = gettimeofday;
printf "%d %d\n", $sec, $microsec;

1秒未満の取得

関連項目