ファイル名: w/sprintf.cgi

#!/usr/local/bin/perl

$Title = 'sprintf サンプルプログラム?';

# ------------------- 関数 hogehoge ほげほげ?---------------

#@ ここに関数を使ったプログラムを書く!
#コピーしただけ
($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$year += 1900;
$mon = sprintf("%02d", $mon + 1);
$day = sprintf("%02d", $day);
$hour = sprintf("%02d", $hour);
$min = sprintf("%02d", $min);
$date_now = "$year年$mon月$day日 $hour時$min分";

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

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

print <<__HTML__;

<HTML>
<HEAD>
<TITLE>$Title</TITLE>
</HEAD>
<BODY bgcolor="#000000" text="#ffff99">
<P>
<DIV class="sample" style="line-height:150%">
<center>
なんだか、わからんが、0を付けて、OKなんだろうか?<BR><BR>
その1<BR>
<font size="6">$mon月 $day日 $hour時 $min分</font><BR><BR>
その2、正解か?$date_now<BR>
<font size="6">$date_now</font>
</center>
</DIV>
</BODY>
</HTML>

__HTML__

exit;