ミリ秒まで含んだ時刻文字列
Posted feedbacks - Perl
CPANモジュールのTime::Formatを使って。
see: Time::Format
1 2 | use Time::Format qw(%time);
print "$time{'yyyymmddhhmmss.mmm'}\n";
|
標準モジュール(Perl v5.8.7) Time::HiResを使って書いてみました。
1 2 3 4 5 | use Time::HiRes;
my ($wtime,$msec) = split(/\./ , Time::HiRes::time);
my @t = localtime($wtime);
printf("%04d%02d%02d%02d%02d%02d.%03d",
$t[5]+1900,$t[4]+1,$t[3],$t[2],$t[1],$t[0],($msec/100));
|
znz #6446() Rating0/0=0.00
YYYY年mm月dd日HH時MM分SS.xxx秒なら、「YYYYmmddHHMMSS.xxx」のようにミリ秒まで含んだ文字列を返すプログラムを書いてください。
[ reply ]