時間を取得するプログラム

SSIバージョン

#!/usr/local/bin/perl

# 時間を取得するプログラム
# （秒　分　時　日　月　年　曜日　夏時間調整の有無）の順にリスト形式に取得
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime;

# 年は西暦から1900引いた値なので1900加える
$year = $year + 1900;

# 月は１引いた値なので１加える
$mon = $mon + 1;

# 曜日は０〜６の値なので対応する曜日にする（ここでは簡単のため配列を使っています。if文でも可）
$youbi = ('日','月','火','水','木','金','土')[$wday];

print "Content-type: text/html\n\n";# CGIのお約束

print "$year 年 $mon 月 $mday 日（ $youbi ）$hour 時 $min 分 $sec 秒";