#! /usr/local/bin/perl # # id=time.cgi # # 現在時刻を表示する（1） # update. 2000.4.9 # 処理日時 # 秒、分、時、日、月、年、曜日 ($t1,$t2,$t3,$t4,$t5,$t6,$t7) = localtime; # 月データは0から11です、実月にするため1を加算して補正します $t5++; # 曜日表示用配列 @yobi=('日','月','火','水','木','金','土'); $nichiji = "現在　$t6年$t5月$t4日（$yobi[$t7]）　$t3時$t2分$t1秒です。\n"; # HTML出力　（ヒアドキュメントで記述する） print "Content-type: text/html\n\n"; print < ローカルタイムの練習

時刻を表示する

EOM print "時刻の値をそのまま表示する\n"; print "

\n"; print $nichiji; print "

\n"; print "年月日と時刻の値を２桁に揃えて表示する\n"; # 年月日 $yy = $t6 - 100; $yy=sprintf("%.2d",$yy); $t5=sprintf("%.2d",$t5); $t4=sprintf("%.2d",$t4); # 分秒 $t2=sprintf("%.2d",$t2); $t1=sprintf("%.2d",$t1); $nichiji = "現在　$yy年$t5月$t4日（$yobi[$t7]）　$t3時$t2分$t1秒です。\n"; print "

\n"; print $nichiji; print "

\n"; print "年を４桁で表示する\n"; $yy = $t6 + 1900; $nichiji = "現在　$yy年$t5月$t4日（$yobi[$t7]）　$t3時$t2分$t1秒です。\n"; print "

\n"; print $nichiji; print "\n"; print "\n"; ################## end of script ##################