ぜろちゃんねるスクリプト総合質問スレ Part7

363 ：◆hikArinCL2 ：2005/12/29(木) 23:51:51 ID:???0

Time::HiResというモジュールがあれば可能ですが、
サーバーによっては使えない場合があります
(高精度の秒を使ってもあまり意味ないような気がしますが)
galadriel.plのGetDate関数を書き換えれば使用可能
該当部分のみ載せますので以下を参照して下さい

# 最初の部分
use Time::HiRes qw(gettimeofday);
$ENV{'TZ'} = "JST-9";
my ($sec, $usec) = gettimeofday();
$usec = sprintf("%02d", int($usec / 10000));
@info = localtime($sec);

# 返り値の部分
return "$info[5]/$info[4]/$info[3]" .
($week eq '' ? '' : "($week)") . "
$info[2]:$info[1]:$info[0].$usec";