アクセス日時を表示(localtime time)
#! /usr/local/bin/perl # 日時取得 ($sec, $min, $hour, $day, $mon, $year) = localtime time; # HTML出力 print "Content-type: text/html\n\n"; print "<html>\n"; print "<head>\n"; print "<title>日時を表示</title>\n"; print "</head>\n"; print "<body>\n"; printf "<center>%d年%d月%d日 %d時%02d分%02d秒</center>\n", $year += 1900, ++$mon, $day, $hour, $min, $sec; print "</body>\n"; print "</html>\n"; exit;
〔 実行する 〕