ファイル名: j/getdate.cgi

#!/usr/local/bin/perl

# -----------------------------------------------------------------------------
# 日付と時刻の取得 (ファイル名: getdate.cgi )
# -----------------------------------------------------------------------------

$Title = '日付と時刻の取得サンプルプログラム';

# ------------------- 関数 localtime ------------------------

($sec, $min, $hour, $mday, $mon, $year) = localtime(time);

$year += 1900;
$mon += 1;

# ----------------------HTML------------------------------

print"Content-type: text/html\n\n";

print <<__HTML__;

<HTML>
<HEAD>
<TITLE>$Title</TITLE>
</HEAD>
<BODY bgcolor="#000000" text="#ffff99">

その1<P>
TODAY: $year/$mon/$mday<P><BR>

その2<P>
現在 $year 年 $mon 月 $mday 日 $hour 時 $min 分 $sec 秒です。

</BODY>
</HTML>

__HTML__

exit;