●perlでマイクロ秒を取得する方法
Distribution Time-HiRes
↑を使う。
HiRes.pmは多分、標準モジュールです。
my $now = Time::HiRes::time;
my($wtime, $msec) = split(/\./, $now);
$result .= "now:".$now."/wtime:".$wtime.'/msec'.$msec."\n";
->>出力
now:1262762858.58713/wtime:1262762858/msec58713
:ﾞ;｀;:ﾞ;｀;･o(ﾛ≦〃)