Windowsでマイクロ秒を表示する

バッチ処理でマイクロ秒を取得したい場合があると、以下のような
Perlスクリプトを作成してバッチ処理で読み込むことで

mdate.pl というファイルを作成します。   

#!/usr/bin/perl

use Time::HiRes qw(gettimeofday);
my($sec,$microsec)=gettimeofday();
$curdate=localtime($sec);
@a=split(/ +/,$curdate.' '.$microsec);
printf "$a[3]".".%06d"."\n",$a[5];
　
　

次に、以下内容で mdate.bat を作成してテストをしてみます。

:: -------------------------------------------------
:: mdate.bat
:: -------------------------------------------------
mdate.pl >  mdate.txt
mdate.pl >> mdate.txt
mdate.pl >> mdate.txt
mdate.pl >> mdate.txt
mdate.pl >> mdate.txt
mdate.pl >> mdate.txt
mdate.pl >> mdate.txt
mdate.pl >> mdate.txt
mdate.pl >> mdate.txt
mdate.txt

 

mdate.batを実行すると・・・・・

以下のような結果を得られればＯＫ！

19:14:47.652810
19:14:47.762187
19:14:47.887188
19:14:47.996565
19:14:48.105941
19:14:48.230943
19:14:48.340319
19:14:48.449696
19:14:48.559072