日付と時刻の表示
 
日付と時刻を求めるには localtime() を用います。localtimeの引数には1970年からの秒数であるtimeを指定します。
 

[サンプルプログラムの実行]
 
 
getDate.cgi 
#!/usr/bin/perl
#
# getdate.cgi
#
# (C)1999 Kaoru Fujita
#

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

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

print <<__END__;
Content-type: text/html

<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=$CharSet">
<TITLE>$Title</TITLE>
</HEAD>
<BODY>

$year 年 $mon 月 $mday 日 $hour 時 $min 分 $sec 秒です。

</BODY>
</HTML>
__END__

exit(0);

#--End of getdate.cgi